mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: [OT] Postatori ot, state avvisati :)

 richiederne la creazione.
;)
Saluti
Paolo Arosio


PESCE PESCE PESCE !!!!!!!!!!!!!!!!
E' UN PESCIONE D'APRILE !!!!!!!!!
AH AHA HAHAHAHA !!!!!!!
PAOLONE BURLONE !!!!!!!!!!!!!!!!!!!
:-D
--
Morde. 
morde[at]programmer[.]net

 corrispondente nella (nuova) gerachia ot.*
Porca zozzona, ma possibile che per qualche minuto io ci casco
*sempre*???????
Mi ero appena detto che oggi dovevo stare attento... :(
--
Jax
Journeying Artificial Xenomorph

Bill Gates muore e si presenta in Paradiso da S. Pietro. 
L'ex-uomo piu' ricco del mondo ha un aspetto distrutto (avrebbe voluto vivere
ancora 100 anni) e pone le sue rimostranze mettendo in dubbio che sia arrivata
la sua ora. 
S. Pietro gli comunica che in Paradiso e' tutto informatizzato: possiedono
Pentium XII a 100 TeraHerz, Windows NTv2, Eden Office 3000, etc. per cui fara'
un controllo. 
Poco dopo ritorna e gli comunica: "Mi dispiace, ma e' quasi tutto corretto.
Voi siete morto, ma vi e' stato assegnato il Purgatorio per certe piccole
malefatte che avete combinato in Terra (pare dei bug...) per un
periodo di un anno. Quindi andate pure e ci rivediamo fra 365 giorni".
Bill Gates abbassa la testa rassegnato e scende in Purgatorio. 
Un anno piu' tardi Bill ritorna alle porte del Paradiso, S. Pietro controlla
sul suo computer e poi dice senza riconoscerlo: "Bill Gates, dite voi.
Aspettate che verifichi... Ah! Ecco, vi ho trovato. Ma ci deve essere
un errore nel computer. Secondo il computer voi dovreste rimanere in
Purgatorio 1000 anni non uno". Sentendo cio' il povero Bill quasi
quasi entra in convulsioni. 
Appena si riprende S. Pietro sorridendogli gli dice: "Pesce d'Aprile, Bill!
Noi non siamo informatizzati!!".


 scriveva fra l'altro:
in data/ora: Tue, 01 Apr 2003 11:37:41 +0200

Ed aspettare per vedere quanti avrebbero abboccato no, eh? neanche due
minuti l'hai lasciato :/ (sgrunt).
Saluti
Paolo Arosio


ahi ahi.... sono dispiaciuto.... mi ha troppo divertito... e cosi' ho
postato...
Scusami, mi dispiace tanto. :-(


 Scusami, mi dispiace tanto. :-(
Vabbe', ti perdono. Tra l'altro, e questo me l'han fatto notare su icf,
io non l'avevo visto, nel msg-id e' esplicitato che si tratta di pesce:
...fi$h@.... Dal che si vede uno dei motivi che hanno portato
all'apertura di it.fan.marco-ditri
Saluti
Paolo Arosio

 Mi ero appena detto che oggi dovevo stare attento... :(
E l'avete visto
ftp://ftp.rfc-editor.org/in-notes/rfc3514.txt
da cui quoto
"  Currently-assigned values are defined as follows:
   0x0  If the bit is set to 0, the packet has no evil intent.  Hosts,
        network elements, etc., SHOULD assume that the packet is
        harmless, and SHOULD NOT take any defensive measures.  (We note
        that this part of the spec is already implemented by many common
        desktop operating systems.)
   0x1  If the bit is set to 1, the packet has evil intent.  Secure
        systems SHOULD try to defend themselves against such packets.
        Insecure systems MAY chose to crash, be penetrated, etc."
ROTFL
o
http://www.corriere.fantascienza.com/NEWS/?2003040103
Saluti
Paolo Arosio
Newsgroup: it.comp.lang.delphi
Titolo: DayOfTheMonth

Come mai codesta funzione mi da' come risultato zero al posto di 31?
Grazie per la risposta
Paolo
procedure TForm1.Button8Click(Sender: TObject);
  function DayOfTheMonth(const AValue: TDateTime): Word;
    begin
        end;
begin
  edit4.text := inttostr(DayOfTheMonth(1/1/2004));
end;
end.

Come mai la seguente funzione mi restituisce zero al posto di 31?


 end;
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

Newsgroup: it.comp.lang.delphi
Titolo: Cronometrare una procedura

Salve
Vorrei fare in modo che all'utente venga visualizzato il tempo impiegato a
svolgere una determinata procedura in una dll che sto scrivendo.
Praticamente vorrei che la dll generi una message box con dentro il tempo
trascorso in centesimi di secondo
Si puo' fare?
Graziiiie

Ciao,
Sem ha scritto:

si, anche se non sarà precisissima.
Usa l'api "GetTickCount" ( non vuole nessun parametro ) e prendi il tempo
appena inizia la procedura             ( prima ) e quando è terminata.
Fai la differenza ed ottieni il tempo in millisecondi. Dividi il risultato
per 10 ed ottieni il tempo in centesimi di secondo.
Ti saluto.....ciao !!
Antonio Tarolla
Newsgroup: it.comp.lang.delphi
Titolo: funziona ma non so perchè - TByteDynArray help

premessa: devo leggere e scrivere uno o più byte in file e/o memoria
di un decoder
// definizione di funzione:
function WriteIntoRamAddress(const RamAddress: LongWord; Value:
string; Length: integer): boolean;
// Funzione:
function TRAMPageFrame.WriteIntoRamAddress(const RamAddress: LongWord;
Value: string; Length: integer): boolean;
var
  I: integer;
  Data: TbyteDynArray;
  temp: string;
begin
  @HRCWriteBytes := GetProcAddress(MainForm.DLLHandle,
'HRCWriteBytes'); // chiamata alla DLL
  SetLength(Data,Length);
  for I := 0 to Length  do
  FillChar(Data[i-1],1,value[i]); // *** NON capisco perchè solo
mettendo Data[i-1] la cosa funziona ***
  for I := 0 to Length -1 do
  temp:= temp+(inttostr(data[i]))+' '; // *** se non metto Data[i-1]
inizia con uno "0" e taglia l'ultimo carattere ***
  Showmessage (temp);
//  HRCWriteBytes(@Data[0],RamAddress,Length,1); // scrittura reale
nella Ram del decoder
//  for I := 0 to Length -1 do
//  Temp := Temp+IntToStr(Data[i]);
//  if ... verifica scrittura ... then
//  Result := true;
//  SetLength(Data, 0);
end;
end.
  {Buf: source buffer address of data to write
 Start: starting address in humax
 Len: bytes to write
 Fast:  ??? "fast" flag - (0 or 1, but HRCApi.dll ignore it, at least
version i have)
 return: positive = actual written bytes, negative = errorcode}
{function HRCWriteBytes(
  Buf: pointer;
  StartAddr: longword;
  Len: integer;
  Fast: integer
  ): integer; stdcall; external 'com.dll';}
//###################### WRITE TEST #################################
procedure TRAMPageFrame.Button1Click(Sender: TObject);
begin
  WriteIntoRamAddress( 2350098794,edit1.Text,length(edit1.text));
end;



Non è che è più giusto così?
for I := 0 to Length -1  do
  FillChar(Data[i],1,value[i + 1]); // *** NON capisco perchè solo
Saluti :)
  Gigi

   Gigi
infatti la logica dovrebbe essere quella ma ...
supponendo di scrivere "pippo" in Data
Length = 5
for I := 0 to Length -1  do // ** quindi da 0 a 4 (5 caratteri)
FillChar(Data[i],1,value[i]);
Data[0] = 0
Data[0] = p ... trasformando in codice ASCII il numero relativo
Data[0] = i
Data[0] = p
Data[0] = p
e quindi (hai ragione) ... dato che Value[0] di pippo è = 0 mi
inserisce lo ZERO iniziale
effettivamente, come dice qualcuno, il problema è sempre tra ... la
sedia e .... la tastiera ;)
gracias
Newsgroup: it.comp.lang.delphi
Titolo: Connettersi a mysql

Vorrei connettermi a mysql versione 5.0.x.x attraverso delphi, ma ho 
riscontrato problemi.
Mi è stato *accennato* all'uso dei driver di CoreLab...  senza specificare 
altro.
Le mie conoscenza non mi permettono di procedere oltre.
Se qualche altro volesse darmi informazioni piu chiare su come operare, dove 
cercare questi driver,
come installarli gliene sarei grato.
Grazie
 

 ha scritto nel messaggio news:e10pch$qpf$1...@area.cu.mi.it...

Naturalmente Google ....
http://www.google.it/search?sourceid=navclient&hl=it&ie=UTF-8&rls=GGLD,GGLD:2003-51,GGLD:it&q=CoreLab
e quindi il primo trovato è proprio
http://www.crlab.com/
Ciao
GP

Le mie conoscenza non mi permettono di procedere oltre.
...neanche di cercare su Google?
Stai messo male, veramente.

 Stai messo male, veramente.
sei un po' indisponente andrea, le tue risposte normalmente non portano a 
niente
e sono piene di suficienza verso noi poveri mortali....non professionisti
dell'informatica....
c'č gente qui che pur sapendone 100.000 volte piů di te e di una educazione 
esemplare e
trova sempre il tempo di rispondere in maniera esaustiva a ciň che si 
chiede.
A loro va il mio grazie a te solo la mia commiserazione
ciao gianmarco ferradini

A loro va il mio grazie a te solo la mia commiserazione
Sì, sì, bla bla bla...

Newsgroup: it.comp.lang.delphi
Titolo: Anchors....tutte attive...che succede?

Salve amici...ero qui che guardavo la tv quando pensavo al regalo che ho
avuto 3 giorni fą...un monitor 19 pollici LCD philips...(e che ce ne frega
direte voi...:)
Fino ad adesso ho sempre realizzato programmi a 1024x768...adesso mi
ritrovo a scrivere programmi a 1280x1024.
L'idea malsana č: se su ogni componente delle form imposto tutte le
anchors ad attive...che succede al resize delle form stesse?.
Non posso provare l'idea poichč sono a 300km da casa per una settimana...e
poichč morivo dalla voglia di sapere se l'idea č malsana o no, mi son
permesso di chiedere qui!.
Happy Easter!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 anchors ad attive...che succede al resize delle form stesse?.
L'idea non č malsana, ma malsanissima!
Prima:  
http://img32.exs.cx/img32/3874/form15ml.png
Dopo:  
http://img181.exs.cx/img181/729/form23jm.png
-- 
Jax
====
Parole mi hanno ferito, parole mi guariranno.

Tempo fa c'era una variabile che si chiamava screen  molto servizievole , 
potresti farti aiutare da lei...
Newsgroup: it.comp.lang.delphi
Titolo: registro di configurazione di sistema

Ho un problema, devo aprire una key del registro che si trova in
HKEY_LOCAL_MACHINE\Software\MiaDitta\MioProgramma
la key si chiama InstallPath
come ne estrapolo il valore?
grazie

 come ne estrapolo il valore?
Valore := TRegistry.ReadString ('InstallPath');  // se la chiave InstallPath
è di tipo stringa
Comunque basta che guardi l'help del TRegistry :-)
Ciao, Davide DG

 ha scritto nel messaggio
news:CuvU5.1230$CH3....@news.infostrada.it...

Grazie, io l'help l'avevo guardato, ma non avevo capito che dovevo anche
settare la root key come HKEY_LOCAL_MACHINE, pensavo la funzione lo capisse
da sola
Mille grazie!


oops non mi funzia
uses registry;
procedure TForm1.FormActivate(Sender: TObject);
var
   path : string;
   reg  : tregistry;
begin
     Reg.RootKey := HKEY_LOCAL_MACHINE;
     Reg.OpenKeyReadOnly ('Software\CyberLink\PowerDVD');
     path := Reg.ReadString ('CDKey');
     showmessage (path);
end;
ho controllato i nomi delle key  ma non sono errati, sapresti dirmi dove sta
l'errore per favore?

 end;
Ciao,
Alan Solo

 ha scritto nel messaggio
news:8vuajj$5qb7m$2...@ID-44131.news.dfncis.de...

grazie

 grazie
prego, volevo anche ricordarti di fare anche un bel Reg.Free alla fine ;)
Ciao, :)
Alan Solo

 Un pochino piů pulito.
eheheh... e dire che io odio il with (per la sintassi) !!! ;PP
Ciao, Davide DG

prego, volevo anche ricordarti di fare anche un bel Reg.Free alla fine ;)
Ehm... Scusate ma non resisto.. :)
with TRegistry.Create do
begin
  RootKey := HKEY_LOCAL_MACHINE; 
  if OpenKey('Software\CyberLink\PowerDVD', True) then
  begin
    [...]
  end;
  Free;
end;
Un pochino più pulito.
Saluti,
Marco
--------------------------------------------------------------------------------
 t,m,e,e,t,@,h,o,t,m,a,i,l,.,c,o,m,
 Togliete le virgole per rispondere in email.
--------------------------------------------------------------------------------

 end;
a questo punto:
try 
 R:=TRegistry.Create;
 with R do begin
  RootKey := HKEY_LOCAL_MACHINE;
  if OpenKey('Software\CyberLink\PowerDVD', True)
   then begin
    [...]
   end;
 end;
finally
 R.Free;
end;
.. molto + ... sicuro ;)
Ciao,
Alan Solo

> eheheh... e dire che io odio il with (per la sintassi) !!! ;PP
ma icsche'!! ... e' cosi' bellino!! :)
Ciao,
Alan Solo

end;
il try _dopo_ il create.
Saluti
Paolo Arosio

> il try _dopo_ il create.
giusto. _chiedo_ _scusa_ ;)
Ciao,
Alan Solo
Newsgroup: it.comp.lang.delphi
Titolo: Database Interbase molto debolo

Sto da poco utilizzando il suddetto database creato con IbExpert ma senza
nessun preavviso ed inspiegabilmente non mi viene più aperto dandomi il msg
d'errore "unavaiable database" da cosa c...o dipende, ed ancora, mi conviene
il lasciare il tanto amato/odiato Paradox infine se dovesse succedere
qualcosa al database, come lo riparo??? esistono dei Tools....
Grazie

 d'errore "unavaiable database" da cosa c...o dipende,
Avviare prima il server?
:-)
Michele Giordano

 d'errore "unavaiable database" da cosa c...o dipende, ed ancora, mi conviene
Come ti ha gia detto michele giordano, avvia prima il server, se invece è
gia avviato controlla bene iil path che gli hai passato e che nella cartella
dove sta il db se sotto filesystem ntfs controlla che ci siano tutti i
permessi per il server di scriverci.
ciao fabrizio

Newsgroup: it.comp.lang.delphi
Titolo: Richiesta info su login database access

Come posso evitare la richiesta di userid e password per aprire un database
access da delphi??
(Per paradox divrei essere capace, ma per access la richiesta esce sempre)

 wrote in message
6N775.2550$2s6....@news.infostrada.it...

Devi settare la proprietą LoginPrompt del componente TDatabase che usi a
False.
                                                                    Ciao
--
Davide Carrara
cci...@libero.it

Newsgroup: it.comp.lang.delphi
Titolo: XMLTransform Provider in D6

Salve e tutti.
Ho un dubbio.
Sto lavorando con XML e i componenti inseriti in D6 per poterli
manipolare.. tra l'altro (commento personale) li trovo validi e
decisamente utili.
Sono alle prese con XMLTransformprovider con cui devo trasformare un
file XML in un DataSet tramite il file di trasformazione XTR creato
appositamente con XML Mapper.
Il problema e' che se faccio:
xmltransformprovider1.XMLDataFile:= 'MIOFILE.xml';
tutto funziona benissimo... ma se io ho il documento XML in una
Stringa come posso ovviare ?
Finora ho sempre messo la stringa in un memo, salvato il contenuto in
un file .xml e poi utilizzata la chiamata appena mostrata..
Però non mi sembra una soluzione nè elegante nè pratica visto che ora
mi trovo nell'impossibilità di usare un memo per aggirare l'ostacolo..
Qualche idea in merito ?

TStringList?


Ciao.. ho seguito il tuo suggerimento..
Tstr:= TStringList.Create;
TStr.Add(StringaConXML);
Tstr.SaveToFile('Passaggio.xml');
xmltransformprovider1.XMLDataFile:= 'Passaggio.xml';
e funziona.. 
perň speravo che il componente XMLTransformprovider fosse un po' piů
versatile e non si dovesse ricorrere a stratagemmi del genere...
Grazie mille.
Jx
Newsgroup: it.comp.lang.delphi
Titolo: menu tasto destro su componente

Come da oggetto, come si fa ad aggiungere una voce al menu che si ottiene 
facendo tasto destro su un componente non visuale in modo che esegua una 
certa procedura a ns. scelta?
Grazie mille,
   Stefano 

 certa procedura a ns. scelta?
Si tratta di un *ComponentEditor*, ma la sua trattazione è troppo lunga 
(almeno per me) da descriverla in poche parole in un semplice messaggio.
Ti suggerisci di cercare la parola chiave nella Guida in linea, su 
Google o - meglio ancora - nel manuale PDF di Delphi che viene fornito 
su CD nel quale, se non ricordo male, c'è un capitolo interamente 
dedicato allo sviluppo di componenti che tratta anche ComponentEditor e 
PropertyEditor.
Ciao! :-)
-- 
Marco «Alka» Breveglieri
  ABLS Team S.n.c. - Software & Web
  Via De Gasperi, 14
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

Newsgroup: it.comp.lang.delphi
Titolo: Vista e D4

Ciao, ho cercato in giro con Google ma non ho trovato nulla, per cui penso 
che il mio problema sia contingente.
Ho acquistato e installato Windows Vista Home Premium per testare il 
funzionamento di Delphi 4. In sostanza non riesco a fare nulla: non funziona 
la BDE (non mi permette nemmeno di modificare IDAPI.cfg) e non riesco 
nemmeno a lanciare l'eseguibile di Delphi.
Qualcuno ha sperimentato problemi analoghi?
Grazie dell'attenzione e ciao.
B
-- 
_______________________________________________________________
Si può persino pensare (gnosticamente) che il male si annidi come 
possibilità rimossa nel seno stesso della Divinità; ma la Divinità non può 
ospitare e concepire la Stupidità, e pertanto la sola presenza degli stupidi 
nel Cosmo potrebbe testimoniare della Morte di Dio.
Umberto Eco 

 Qualcuno ha sperimentato problemi analoghi?
Hai elencato quelli che dovrebbero essere i limiti di un home user, non
admin.
Pertanto verifica prima di tutto se hai i permessi per fare queste
operazioni.
-- 
Morde

 admin.
E in ogni caso ci si ricordi che è sempre meno probabile che il BDE
(perché "la" ? :-) funzioni sui nuovi sistemi.  Il supporto per questo
sistema è cessato da un pezzo e già sotto NT 4.0 io sperimentavo problemi
seri.  E' consigliabile, tanto più ora che c'è Vista, concentrarsi su
nuove tecnologie di accesso ai dati (se è la compatibilità all'indietro
che si insegue, allora non si installi Vista...)...
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 nuove tecnologie di accesso ai dati
E voglio proprio vedere i programmatori del G1 di zucchetti come faranno,
visto che ci sono "marcito" sopra per anni su quei dbf e mdx...
Si direbbe che con Vista siamo al traguardo di queste vetuste tecnologie.
-- 
Morde
Newsgroup: it.comp.lang.delphi
Titolo: Unsafe code 'BlockRead'

Sono appena passato da Delphi 6 a Delphi 7 e sembra che
tutto stia andando bene (grattatina per scaramanzia).
Ho solo un problema con due Warning riguardanti:
 -  Unsafe code 'BlockRead'
 -  Unsafe code 'BlockWrite'
riguardante una procedura che ho fatto per copiare dei file:
============================================
procedure TfrmSossai.copiaFile(fileSrc, fileDst : string);
var
  fromF    : file;
  toF      : file;
  nRead    : integer;
  nWritten : integer;
  buffer   : array [1 .. 10240] of char;
begin
  // file sorgente
    assignFile(fromF, fileSrc);
    reset(fromf, 1);
  // file destinazione
    assignFile(toF, fileDst);
    rewrite(toF, 1);
  repeat
    // legge dal file
      blockRead (fromF, buffer, sizeOf(buffer), nRead);
    // scrive sul file
      blockWrite(toF,   buffer, nRead, nWritten);
  until (nRead = 0) or (nWritten <> nRead);
  // close all file
    closeFile(fromF);
    closeFile(toF);
end;
============================================
mi devo preoccupare? 

 ha scritto nel messaggio 
news:438897cc$0$13263$4faf...@reader2.news.tin.it...


  -  Unsafe code 'BlockWrite'
BlockRead e BlockWrite non vanno piů usate da un bel pezzo.
Per copiare un file su un altro usa gli stream, che oltretutto sono piů
efficienti e facili da usare.
Scrivo al volo:
var
  SrcStream: TFileStream;
  DstStream: TFileStream;
...
SrcStream := TFileStream.Create(nomefilesorgente, fmOpenRead);
DstStream := TFileStream.Create(nomefiledestinazione, fmCreate);
try
  DstStream.Copy(SrcStream, 0);
finally
  DstStream.Free;
  SrcStream.Free
end;
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

ok grazie ragazzi
"Andrea Laforgia" <x...@xx.xx> ha scritto nel messaggio 
news:dmadn2$tbb$1...@news.newsland.it...

Newsgroup: it.comp.lang.delphi
Titolo: Creazione tabella

In un nuovo form ho messo un DataSource con una Table opportunamente
collegate.
Nell'Objet TreeView alla voce FieldDefs di Table1 ho creato un paio di
campi, ma quando con il
tasto destro del mouse sulla voce Table1 dell'Objet TreeView clicco su
Create Table ottengo
un'errore di questo tipo :
"Capability not supported"
BDE Error: 12289.
Sto usando il database di esempio DBDEMOS.
Per quale ragione ?
Come posso fare per creare la tabella nuova che voglio fare ?
Ciao e grazie a tutti.
Enrico

 ha scritto nel messaggio
news:ALB48.27529$Rv3.9...@news2.tin.it...


premesso che non dici su quale db stai lavorando
(interbase, M$Sql, Oracle...)...
Se usi paradox:
procedure TTable.CreateTable;
Description
Call CreateTable at runtime to create a table using 
this dataset’s current definitions. 
If the table already exists, CreateTable 
overwrites the table’s structure and data. 
To avoid overwriting an existing table, 
check the Exists property before calling CreateTable.
If the FieldDefs property contains values, 
these values are used to create field definitions. 
Otherwise the Fields property is used. 
One or both of these properties must contain values 
in order to create a database table.
If the IndexDefs property contain values, 
these values are used to create indexes on the table.
Se usi un qualsiasi db client/server relazionale,
esiste il comando CREATE TABLE.
Bye
AS
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.delphi
Titolo: delphi 7 file txt

Io devo utilizzare un file txt per salvarmi delle informazioni per poi
andarle a leggere per caricarle e assegnarle in un secondo
momento..però non riesco a creare il file txt con piu righe e mi
ritrovo sempre il file txt con una riga solo..??mi potete aiutare???
grazie

mi potete aiutare???
certo. basta che posti un po di codice.
A.


AssignFile(myFile,fVolumeFullPath+'\'+'archivedata.txt');
rewrite(myfile);
Write(myFile,pdocid,',',FormatDateTime('dd/mm/
yyyy',pDocDate),',',pdocname,',',pdocpath,',',pdoccf,',',pdocpiva,',',pdocdscf);
Writeln(myfile);
CloseFile(myFile);
questo e il codice che uso ma con scarso successo...
BIlly

 Write(myFile,pdocid,',',FormatDateTime('dd/mm/
^^^^^^^^^^^^^^
A:

 Writeln(myfile);
Bastava un Writeln invece di un Write ed un Writeln
Bye, Bye


Grazie mille..io adesso mi ritrovo il file con varie righe come questa
1,01/03/2007,FATTURA,A
\00\00\20061214_103919_687227_000005.PDF.p7m,CodFiscale,Piva,Ragione
Sociale
se io volessi estrarmi il contenuto un pezzo per volta...???
BIlly

Ma qui' siamo all'ABC. Vabbè
// Assegno il file
AssignFile(MyFile, 'nome.txt');
// Lo apro in sola lettura (con i file di testo è cosi')
Reset(MyFile);
// Estraggo la prima linea
ReadLn(MyFile, MiaStringa);
// Estraggo la seconda linea
ReadLn(MyFile, MiaStringa);
... e cosi' via ...
// Chiudo il file
CloseFile(MyFile);
Poi se il tuo problema è estrarre le singole informazioni da una singola 
riga devi ricercare il carattere delimitatore con la funzione Pos e 
prendere il pezzo che ti serve con la funzione Copy. Oppure usare 
l'oggetto TStrings impostando il carattere che usi come delimitatore 
nella proprietà Delimiter e la stringa letta da file nel campo 
DelimitedText, a questo punto con un semplice ciclo For leggi le 
stringhe. Difficile? Faccio un esempio:
var
   WordList: TStringList;
   I: Integer;
   S: String;
begin
   S := 'ugo,franco,gianni,1234567890,toro';
   WordList := TStringList.Create;
   WordList.Delimiter := ',';
   WordList.DelimitedText := S;
   for I := 0 to WordList.COunt-1 do ShowMessage(WordList.Strings[I]);
end;
Capito? Non è difficile dai ;)


Newsgroup: it.comp.lang.delphi
Titolo: InterBase! DB locale come fò?

Scusate la mia incompetenza (sono principiante).
Il mio problema dovrebbe essere molto semplice:
Devo realizzare un DB con Interbase (per fare un po' di pratica
visto che in Paradox già l'ho fatto) ma con InteractiveSQL quando faccio
"Create Database" mi viene una finestra dove l'opzione "local engine"
è disabilitata e posso solo scegliere "Remote Server".
Il mio DB deve essere locale!
Ho sbagliato qualche configurazione di Interbase?
Ringrazio anticipatamente!!

Ciao Alex,

Se non sbaglio dovresti eseguire un programmino (mi pare sia IBServer) che
attiva sulla tua macchina
una dorta di server virtuale...poi dovrebbe andare tutto!!
--
- Carlo -
BSSoftware Tips Mailing-List Support
Newsgroup: it.comp.lang.delphi
Titolo: aiuto

Salve ragazzi,
ho il seguente problema. Ho creato un piccolo form e desidero istanziarlo
con la la classica TForm.Create(AOwner : TComponent).
Quando tento di visualizzare il form con ShowModal il debbugger mi mostra il
seguente messaggio:
"Cannot make a visible window modal"
Per quale motivo?
Grazie dell'attenzione

> "Cannot make a visible window modal"
Possible Cause of Error
You may have called a form's ShowModal method after it was already
displaying.
Quick Fix
Do not call a form's ShowModal method unless you are creating it
dynamically.
Additional Information
When a form is created automatically by Delphi (such as all forms are by
default and an application's main form always is), Delphi changes the forms
Visible property from False to True.
The only time you should (and must) call either a forms Show or ShowModal
method is when creating the form dynamically. Creating forms dynamically is
recommended for forms which may not be opened every time an application is
instantiated (such as an About box).
To create a form dynamically, follow these steps:
1. Select View | Project Manager.
2. Select the Options button.
3. Highlight the form you want to create dynamically in the Auto-Create
Forms list box.
4. Move it to the Available Forms list box by clicking the right arrow.
5. Select the OK button.
6. Add code patterned after the following to the event of your choice
(replace AboutBox with the forms instance variable name and TAboutBox with
the form's class name):
procedure TForm1.AboutBoxClick(Sender: Tobject);
begin
 AboutBox := TAboutBox.Create(Application);
 try
 AboutBox.ShowModal;
 finally
 AboutBox.Free;
 AboutBox := nil;
 end;
end;


Grazie: in ogni caso nell'editare il codice non mi sono accorto di aver
cancellato la riga (all'interno del costruttore):
inherited Create(self);
:-(
Newsgroup: it.comp.lang.delphi
Titolo: [Messagi] intercettare i tasti ALT+TAB e ALT+INVIO

Io ho una procedura che riceve i messagi da windows... io devo
intercettare la pressione dei tasti
ALT+TAB, perche quando sto in fullscreen non mi crea un po' di casini
ALT+INVIO, metodo standard per passare da FullScreen a Windowsmode...
ma non ci riesco...
come saprete queste combinazioni non hanno nessun codice ascii...
vi prego di aiutarmi sono disperato
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Ciao, prova con:
public
    Enabled1: Integer;
procedure TForm1.Button1Click(Sender: TObject);
var
  Dummy : integer;
begin
 Dummy := 0;
 if Enabled1 = 1 then
    Enabled1 := 0 //0 means enable ctl-alt-delete
 else
    Enabled1 := 1; //1 means disable controls
 {Disable ALT-TAB}
 SystemParametersInfo( SPI_SETFASTTASKSWITCH, Enabled1, @Dummy, 0);
 {Disable CTRL-ALT-DEL}
 SystemParametersInfo( SPI_SCREENSAVERRUNNING, Enabled1, @Dummy, 0);
end;
Ciao
Gianni Giusti



Forse non mi sono spiegato.... io non li voglio disabilitare (Ci
mancherebbe altro... ma voglio intercetarli... cioč voglio sapre
(quando c'č la mia app che gira) se qualcuno ha premuto ALT+INVIO (e
non CTRL+ALT+DEL) o ALT+TAB...
mentre il codice che mi hai dato premendo il botono Button1 mi
disativa e mi attiva questa opzione...
anche se non riesco ad intercetare almeno diabilitare ALT+TAB durante
il fullScreen potrebbe avere dei vantagi...
cmq grazie di avermi risposto,
ciao


 il fullScreen potrebbe avere dei vantagi...
Almeno a qualcosa è servito. Quel codice l'ho usato diverso tempo fa per
proteggere una postazione di lavoro e sviluppare un software di protezione.
Ciao e scusa ancora
Gianni Giusti


Di niente...


Newsgroup: it.comp.lang.delphi
Titolo: Avete info su Delphi 2007 e NET 2.0 ?

Avete info su Delphi 2007 e NET 2.0 ?

 Avete info su Delphi 2007 e NET 2.0 ?
Di che tipo?
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Newsgroup: it.comp.lang.delphi
Titolo: TUTORIAL API!!!!!

ma il tutorial api che ci sta qualche post piu' in sopra...
va bene anchje per delphi???? (parla di visual basic...)

va bene anchje per delphi???? (parla di visual basic...)
L'API di windows è una collezione di funzioni indipendenti dall'ambiente di
lavoro, ciò significa che una comune funzione dell'API può essere utilizzata
sia su ambiente Delphi che Visual Basic o Visual C++ etc... Ciò che cambia
da un compilatore all'altro sono i metodi di accesso alla funzione e il tipo
dei parametri, ad esempio (da quel che so) ciascuna funzione dell'API in
Visual Basic deve essere dichiarata come Funzione X della Libreria Y di
Windows, questo lavoro in Delphi non è necessario poichè molte funzioni sono
ridichiarate nelle varie unit Window, ShellAPI etc.. Inoltre Delphi fornisce
una serie di tipi aggiuntivi, creati apposta per l'API (vedi THandle), tipi
che in VB non esistono (se non erro VB passa un THandle come normale
LongInt).
Cmq x quel che riguarda la teoria, il tutto funziona allo stesso identico
modo!
Ola!
--
- Carlo -

 ha scritto nel messaggio
news:sUtp5.133028$dF5.2...@news.infostrada.it...


correggimi se sbaglio....
Non esattamente...
Se tu leggessi msdn o il comune help di Win32 noteresti che tutti gli esempi
sono scritti in linguaggio C, per Delphi non c'è assolutamente nulla di
pronto...tu puoi benissimo leggere il tutorial per VB, poi sta a te
"tradurre" il codice che ti interessa in Delphi.
I principi di funzionamento dell'API di Win32 sono unici, non cambiano a
seconda del compilatore!
Se tu nel tutorial trovi scritto "Ogni processo carica almeno un thread",
questo non vale solo per applicazioni VB piuttosto che Delphi, è il
comportamento di Windows! Se hai bisogno di aiuto chiedi pure.
Ciao! :)
--
- Carlo -

Newsgroup: it.comp.lang.delphi
Titolo: Realizzare dll con eventi...

Ciao a tutti,
ho un problema alquanto strano.
Dovrei realizzare una DLL (e fin qui' niente di strano xche' ne ho gia'
fatte di altre) a collegamento dinamico (non statico); il cliente mi chiede
di realizzare anche degli eventi richiamabili da ambiente di sviluppo.
Premetto che il cliente sviluppa in VB e pertanto penso che lui stia
parlando degli eventi che vengono generati da ActiveX dll oppure da OCX ; in
quanto io penso che non si possano generare eventi con una semplice libreria
a collegamento dinamico o... sto' dicendo una "caz...ta" ?
In pratica vorrei sapere se una libreria a collegamento dinamico possa
generare eventi "tipo" componenti OCX o DLL Activex.
Grazie
Filippo
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 generare eventi "tipo" componenti OCX o DLL Activex.
Per implementare gli eventi in un ActiveX puoi iniziare leggendo questo
articolo:
http://pw1.netcom.com/~cherrman/dl030.htm
-- 
Vuoi distribuire il tuo sito web su CD/DVD?
Prova 
http://www.dwebpro.com/
Vuoi diventare un esperto programmatore Delphi?
Vieni a fare uno stage con noi: 
http://www.creativepark.it/stage/

 ha scritto:

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.delphi
Titolo: Ancora sul DBGRID....





Supponiamo di scrollare il grid verso il basso abbastanza da far uscire 
dallo schermo le righe visibili inizialmente, la riga evidenziata in blu scorre 
anch'essa restando però nella porzione visibile del grid.




Sto cercando di scoprire come si fa a rilevare quale linea (vorrei trovare 
un numero) è correntemente evidenzata in blu. 


O meglio, vorrei capire da questo, quale porzione del result set è 
correntemente visualizzata o anche a quale record corrisponde la riga 
evidenziata.


Potete aiutarmi?


 


Grazie....


----------------------
andrea...@errepi.it
---------------------- 




La prop SelectedRows della dbgrid contiene i bookmark delle ricghe
evidenziate, che per lui sono selezionate.
Se hai lopzione Multiselect a false, presumo che nella selectedrows trovi il
bk dell'unica riga selezionata.
A  me interesserebbe sapere il numero totalòe di righe che una dbgrid puo'
mostrare, ma non mi sembra che l'oggetto prevede prop relative alle righe.
Saluti
AS
"Se è Microsoft non funziona"

Newsgroup: it.comp.lang.delphi
Titolo: Temperatura Processore

Buongiorno a tutti!!!
VI volevo chiedere mi potreste dare delle indicazioni riguardanti la 
creazione di un programma che prenda la temperatura del processore o cpu 
insomma la temperatura del pc l'applicativo lo voglio fare in delphi
esistono componenti?
devo utilizzare delle api?
Grazie mille!!!!

>devo utilizzare delle api?
Tipicamente si tratta di interrogare direttamente certi componenti della
scheda madre - che io sappia non esistono API "standard" per farlo, e il
modo di farlo può essere differente a seconda del tipo di hardware da
interrogare.
Il problema è che per accedere all'hardware nella serie "NT" (NT, 2000,
XP, 2003) si deve scrivere un driver (che giri nel kernel, a "ring 0")
perché le applicazioni utente che girano a "ring 3" non possono avere
accesso diretto all'hardware per motivi di protezione.
Scrivere driver con Delphi non è impossibile ma "quasi", perché Borland
non ha previsto questo uso. Ci sono degli "hack" per farlo, ma IMHO il
gioco non vale la candela, si fa prima a usare un compilatore C e il DDK
(driver development kit) di Windows.
Ovviamente la scrittura di un driver richiede un po' di "competenza"
perché gira ad un livello sufficientemente basso per dare parecchi
problemi se è fatto male.
Concludendo:
1) Devi trovare le specifiche dei componenti che opportunamente
interrogati ti restituiscono le informazioni sullo stato della CPU
2) Devi scrivere il driver
3) Puoi quindi usare il driver da un'applicazione per visualizzare le
informazioni all'utente.
Luigi D. Sandon - D&amp;D Support Team
--- posted by geoForum on 
http://www.delphiedintorni.it

Mi č venuto in mente che si dovrebbe poter fare via ACPI, ma non so cosa
offra Windows per integrarsi, e a che livello vada fatto.


Grazie mille!!!!
	Ciao
	MassimoB
 
---------------------------
http://www.massimobeschi.it/
Newsgroup: it.comp.lang.delphi
Titolo: Da D5Pro a Excel

nelle celle predestinate del foglio Excel. Punto e basta.
Semplice, utilizza la automazione OLE...ad esempio per posizionarti su una
cella particolare puoi usare
NomeVariant.ActiveSheet.Cells[Riga, Colonna].Select, e ti posiziona sulle
celle che vuoi.
Se maneggi poco l'OLE auto scrivimi pure in privato e ti aiuterò.
Ciao
--
- Carlo -
BSSoftware Tips Mailing-List Support

...


Sarò anche tonno, non lo nego! ma non so dove trovarlo!
Tranquillo non è colpa tua, il fatto è che l'automazione OLE è molto poco
documentata,
e non si trovva nulla + di Word come esempio.
Eccoti un esempio di Ole con Excel :
Var Excel: Variant;
Excel:=CreateOleObject('Excel.application');
Excel.visible:=True;
E' tutto qui. Ora ti elenco un po' si funzioni che conosco :
Excel.Worksheets.Add;  (Crea nuovo foglio lavoro)
ExcelCloseWorkBooks(Excel, SaveAll);  (chiude i documenti e salva)
Excel.Quit; (Chiude l'istanza di Excel)
Excel.Sheets[Nomefoglio].Select; (seleziona un foglio in base al nome)
Excel.ActiveSheet.Cells[R, C].Select; (Seleziona una cella in base a Riga e
Colonna)
Excel.Cells[R, C].Value; (Ti restituisce il valore della cella)
Excel.ActiveCell.Row/Column (Ti restituisce la Riga/Colonna Attiva)
Excel.ActiveSheet.Cells[R, C].Formula := TuaFormula (imposta una formula in
una cella)
Ora non me ne vengono in mente altre....(magari sto dimenticando le +
importanti) cmq se
ti serve qualcosa in particolare dimmi pure....
Ciao e buona Automazione





Newsgroup: it.comp.lang.delphi
Titolo: Connettersi a MSSQL Server con D5 Professional: si puo'?

Buongiorno a tutti.
Spiego meglio la questione di cui all'oggetto. Volendo connettersi a un
database MSSQL 6.5, oppure 7, oppure MSDE, attraverso un eseguibile
compilato con D5 Pro e che utilizza un driver della BDE 5.10... appare
puntualmente una messagebox che informa che con tale versione di Delphi non
ci si puo' connettere ad un database SQL Server.
Mi sembra che Borland distribuisca separatamente gli SQL Links (per 400$ o
giu' di li'): significa che acquistandoli posso usare i miei applicativi D5
Pro con MSSQL? E quindi gli SQL Links non sono piu' semplici collezioni di
DLL, ma includono anche il codice per bypassare la protezione della
versione?
Grazie e a presto.

 wrote in message 38d20...@news.dada.it...


...


Grazie Diego: vorrei pero' connettermi attraverso BDE, non fosse altro
perche' ho un applicativo scritto in D3 di circa 80000 linee di codice, e
non vorrei passare qualche settimana per cambiare i TDataSet in
TADODataSet...
Grazie di nuovo e buon lavoro.

Newsgroup: it.comp.lang.delphi
Titolo: Query e Delphi4

Ho delphi 4 e sto provando ad usare le query su una tabella DBASE
La query è :
delete
FROM "Estratto.DBF"
WHERE Flag = :Campo
il mio intento è quello di cancellare dal db Estratto.dbf i record che hanno
il campo Flag = al parametro Campo.
dopo da codice faccio :
  Query.Active:=false;
  Query.UnPrepare;
  Query.ParamByName('Campo').AsInteger:=GioCampo.AsInteger;
  Query.Prepare;
  Query.Active:=true;
Il problema è che se attivo la query mi da "ERROR CREATING CURSOR HANDLE", e
il bello è che mi sembra che i record li cancelli lo stesso
Cosa sbaglio ?
Stefano Tampieri

Sbagli il modo in cui apri la query.
Invece di utilizzare la proprietą active prova il metodo "execsql".
Inoltre sebbene dal tuo esempio non si capisca di che tipo sia giocampo...
sarebbe meglio
assegnare esplicitamente il suo valore ad una variabile di tipo intero e
solo dopo passarla come parametro alla query.
Alessandro Loffredo.
-- 
Posted from 
smtp1.libero.it
 [193.70.192.51] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:NFBBIDGNDEMMJMFILC...@inwind.it...


 ha scritto nel messaggio
news:NFBBIDGNDEMMJMFILC...@inwind.it...


Newsgroup: it.comp.lang.delphi
Titolo: Info su possibile controllo

Ciao a tutti,
C'è qualche controllo in delphi che simula un browser? In sostanza mi 
servirebbe (ammesso che ci sia) un controllo che visualizzi in output del 
codice html+css un po' come avviene con internet explorer.
Non voglio fare un browser ma visualizzare il risultato prodotto da un file 
html+css sfruttando magari il "motore" di internet explorer o di firefox.
Grazie ancora per la disponibilità,
Cooper. 

 C'è qualche controllo in delphi che simula un browser? [...]
Il controllo *TWebBrowser* è il wrapper dell'ActiveX motore di Internet 
Explorer. Puoi usare quello.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)


Ottimo :) Un ultima cosa, ha delle restrizioni particolari? e soprattutto, 
dove posso reperirlo? Nella palette dei controlli non compare :(
Grazie ancora,
Cooper. 

 dove posso reperirlo? Nella palette dei controlli non compare :(
Cosa intendi per "restrizioni particolari"?
Il controllo è solitamente nella pagina /Internet/ della Palette/ToolBox.



Trovato :)
Grazie ancora,
Cooper. 

 meno rispetto a quello usato da internet explorer?
E' lo stesso controllo. Internet Explorer è un "wrapper" di quel 
controllo con barre degli strumenti e menu per pilotarlo.

Newsgroup: it.comp.lang.delphi
Titolo: RGB, come ?

Salve,
c'e' un modo per avere il valore in RGB di un pixels ?
Io ho fatto cosi' :
    Valore_Intero:=.....Pixels[x,y];
    Valore_B:=Trunc(ValoreIntero/65536);
    Valore_G:=Trunc((ValoreIntero-65536*Valore_B)/256);
    Valore_R:=Trunc(ValoreIntero-65536*Valore_B-256*Valore_G);
Ciao
faf...@tiscalinet.it

Ciao,
fafino ha scritto:

per rispondere alla tua domanda ho dato subito un' occhiata al Win32SDK, ma
non escludo che anche Delphi possa avere funzioni proprietarie per far
quello che chiedi.
Allora la tua variabile Valore_Intero contiene il valore numerico a 32 bit
del "pixel" selezionato.
Giusto ?
A questo punto, ci sono le seguenti funzioni:
GetRValue
GetGValue
GetBValue
tutte queste vogliono come parametro il numero ("Valore_Intero") che
identifica il colore del pixel.
La prima funzione ti restituirà il valore numerico (in byte) del colore
rosso, la seconda del colore giallo e la terza del colore blu. In questo
modo hai ottenuto i valori della tripletta RGB.
Se invece vuoi partire dalla tripletta ed ottenere il colore corrispondente,
c' è la funzione RGB.
Ricorda che le funzioni che ti ho suggerito, sono API e quindi le trovi
documentate nel Win32SDK.
Ti saluto, buona decodifica !!
Antonio Tarolla
BSSoftware Tips Mailing - List Support

Usa le scanline che funzionano circa 100 volte piu' velocemente di pixels[].
C'e' un mio esempio sul repositori di MrCoke.
--
Uberto -- D&D Support Team


C'e' un mio esempio sul repositori di MrCoke.
giusto, ora che ci penso avevo intravisto tempo fa il tuo esempio anche se
poi non l' avevo provato.
Lo proverň.....grazie del suggerimento.
Ciao.....alle prossime.


Newsgroup: it.comp.lang.delphi
Titolo: pasticcio con le configurazioni

ciao a tutti
    non so cosa sono andato a cambiare di preciso nelle varie impostazioni
del Delphi (ver 5) ma da un pò di tempo non riesco più a modificare
l'indentazione con le combinazioni di tasti che utilizzavo:
ctrl + shift + I  (aumenta ind)
ctrl + shift + U (diminuisce ind)
ho già provato a cambiare i vari modelli di key mapping ma senza risultati
decenti
qualcuno ha idea di come possa tornare sui miei passi e fare funzionare le
combinazioni di cui sopra?
grazie del Vs. tempo  x i miei pasticci
Ale

 Ale
Andrea

 Hai installato GExperts?
Sě ma non di recente e il problema mi si č appena  presentato quindi ne
deduco che sia una impostazione! non ho istallato niente di recente, add-ons
nč componenti nč packages ne altro...

Newsgroup: it.comp.lang.delphi
Titolo: Menu ad hoc

 Blue Wolf.

Ti consiglio di derivare una classe da TMenuItem
Non riportare tutto il testo del messaggio al quale stai
rispondendo e cerca di quotare sotto il testo, non sopra.
--
Andrea Laforgia - walkietalkie(at)
libero.it
#exclude <windows.h>
Newsgroup: it.comp.lang.delphi
Titolo: Sostituto di TbatchMove

Utilizzando ADO in applicazioni mono utente, qual'è il miglior sostituto di
TbatchMove?
Grazie Carlo

TbatchMove?
Io credo che sia un AdoCommand.
Questo codice esempio apre una transazione e sposta il contenuto di una
tabella dal db sorgente al db destinazione.
adoconnection.Begintrans;
ADOCommand.CommandText := 'DELETE FROM Cassa IN c:\temp\dest.mdb';
ADOCommand.CommandText := 'INSERT INTO Cassa IN c:\temp\dest.mdb SELECT
Cassa.* FROM Cassa IN sorgente.mdb';
adoconnection.CommitTrans;
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 adoconnection.CommitTrans;
Funziona come unica transazione nonostante sia su due DB?
Ciao,
Gianluca.

Funziona come unica transazione nonostante sia su due DB?
Scusa se sono stato stringato: si, funziona con una sola transazione, purche'
la connessione sia effettuata sul db verso il quale fai le delete e le import
successive. (cosi' il rollback ha effetto)
Funzionerebbe anche se ti connettessi all'altro, ma non avrebbe senso fare una
transazione dove effettui solo delle letture.
Io lo uso come metodo per fare il porting dei dati da una versione all'altra
di un db, utile per spostare intere tabelle da un db all'altro con un solo
comando. Se la tabella destinazione ha campi in piu', non viene intaccata da
questa procedura, e il porting dei dati funziona in maniera trasparente.


 ha scritto nel messaggio
news:ahu0301lnjbsmstih...@4ax.com...


Hoi sempre più nostalgia del BDE.
ah ah ... nessuno ti vieta di scrivere un TADOBatchMove: in fin dei conti il
TBatchMove invoca delle api BDI. DBGo (ADO) ti mette a disposizione metodi
piu' ad alto livello, ad esempio Brian Bushay (TeamB) suggerisce questo:
"There is no universal solution for ADO unless you consider the loadFromFile
and SaveTofile methods that produce XML a valid export format. (...)"
La mia soluzione e' uno dei tanti accrocchi che si possono fare da un
programma. Una soluzione molto piu' elegante consisterebbe in un componente
che si connetta al db sorgente, esporti i dati, si connetta al db destinazione
e' reimporti il tutto. In maniera totalmente trasparente al programmatore.
BDE e' morto ?? viva il BDE!


Newsgroup: it.comp.lang.delphi
Titolo: Esplorare una directory (e le sottocartelle)

Ciao, come posso fare per visualizzare un path di cartelle, in un controllo
del tipo TreeView, solo a partire da una certa directory in avanti? Ad
esempio
vorrei che fosse possibile visualizzare SOLO la cartella C.\pippo\pluto e
tutte le sottocartelle, NON altro (non devono essere visibili i rami
superiori).
E' possibile? Esiste un componente che faccia qualcosa di simile.
Grazie, di cuore
Antonio

 wrote

a farlo non ci vuole nulla......con le semplici funzioni "FindFirst",
"FindNext" e "FindClose", ottieni ciò che vuoi adattandole al componente
TreeView !!
Per non far vedere i rami superiori, basta fermare la ricerca delle
directory affidata alle funzioni che ti ho sopra scritto !!
Ciao ciao...
Antonio Tarolla

 ha scritto nel messaggio
news:9ear5k$c21$1...@nreadB.inwind.it...

Newsgroup: it.comp.lang.delphi
Titolo: Cattura pacchetti tcp

Ciao a tutti,
avrei bisogno di qualche dritta su come fare a catturare tutti i pacchetti
tcp in arrivo sulla mia scheda di rete, con un programmino scritto in
delphi.
Avete qualche link su dove trovare della documentazione?
Ciao e grazie

 scritto in delphi.
Utilizza 
http://winpcap.polito.it
-- 
I am what I am, I do what I can
Vuoi supportarmi? 
http://url.repository.biz/go/3E
Do. Or do not. There is not try.

Andrea Laforgia ha scritto:
<...> Se lo scopo è quello di realizzare un firewall, quella libreria non va
bene
Sorry... mi sono ripetuto ;)
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Utilizza 
http://winpcap.polito.it
Fate attenzione al fatto che la WinPcap funziona indipendentemente dal
protocollo di rete, quindi se lo scopo è quello di realizzare un firewall,
questa libreria non va bene.
Se lo scopo è quello di realizzare un firewall, quella libreria non va bene
-- 


Entra nel sito degli ICS di Piette dovresti trovare uno sniffer.
Giorgio
"Andrea Laforgia" <x...@xx.xx> ha scritto nel messaggio
news:d6dmdk$s0t$1...@news.newsland.it...


 Sorry... mi sono ripetuto ;)
Ogni tanto fà bene ripetere le robe... ;-)
Andrea
Newsgroup: it.comp.lang.delphi
Titolo: Ragazzi, ho Delphi SFASATO!

Ho fatto vari copia e incolla da/a Blocco Note da/a Editor Codice di
Delphi 7.
Adesso mi trovo che alla compilazione mi vengono identificati gli errori
e i warning 8/9 righe prima di dove effettivamente si trova l'errore.
Inoltre in alcune parti di codice non funziona più il Tooltip symbol
insight	...
Non trovo nessun errore di codice che blocchi il Code insight nel tratto
di codice che fa così.
Cosa posso fare?


Quante righe di codice sono?
Quanti oggetti hai in una form?
Il debugger è collegato a qualche altro
processo tipo dll et similia?
Saluti :)
  Gigi

 
Il modulo si compone di 1580 righe di codice con dichiarazione di 9
oggetti: 6 di questi sono thread che gestiscono query in sessioni
private, 1 di questi č il form stesso con i componenti visuali.
Il debugger non č collegato a nessun altro processo, che io sappia.
Il programma usa una DLL ma questo non ha mai creato problemi prima del
copia e incolla (quello che secondo me ha generato il problema).
Barbiturico76

 Cosa posso fare?
Copia tutte le righe del tuo programma in un file di testo (esempio con 
blocconotes)
e salvale.
Cancella quelle nell'editor di delphi e riportale dentro con un nuovo 
copiaincolla con partenza dalle righe che hai messo nel blocco notes.
Il problema e' stato causato dal copiaincolla: alcune righe sono terminate 
con cr-lf ed altre solo con cr: sul video le vedi uguali ma il programma si 
confonde.
Claudia 

> di codice che fa così.


 Siamo molto sparpagliati nella penisola italica?
In genere ai pranzi di icld paga Marco Breveglieri, quindi
chiedi a lui :D
Andrea

 chiedi a lui :D
Beh, a dire la verità l'unica cena a cui ho partecipato (sempre mitico 
lo stinco di maiale...) è stata offerta da Mario Piva. :-)
Non mi prendo meriti che non ho... ;-)
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 chiedi a lui :D
LOL!!!
Acqua