mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Listbox

Salve!!!
Come posso portare in una stringa il valore che seleziono in una Listbox.
Potrei estrapolare la posizione dell'elemento selezionato ma non mi serve
per il mio scopo.

 Come posso portare in una stringa il valore che seleziono in una Listbox.
// evento OnClick della listbox
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  with ListBox1 do
  begin
    if ItemIndex <> -1 then
    begin
      ShowMessage(Items[ItemIndex]);
    end;
  end;
end;
-- 
Posted from  [80.105.34.80] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.delphi
Titolo: Da intero decimale a esadecimale

Ciao a tutti, vorrei trasformare un numero decimale (es.28) in esadecimale
($1C).
La funzione IntToHex ovviamente NON fa quello che dice perchè mi restituisce
una stringa. Qualcuno sa come fare quest'operazione così banale (non ho
assolutamente voglia di perdere 15 min per scrivere una funzione così
idiota).
Grazie a tutti.
Giuseppe

una stringa. 
Non capisco.
Un valore esadecimale è una "rappresentazione" in base 16 e quindi si
deve necessariamente ricorrere a una stringa (per via della presenza
dei caratteri dalla A alla F).
-- 
Andrea Laforgia
Open Delphi Manual
http://groups.yahoo.com/group/delphi_open_manual/

 una stringa.
non ho capito: se non in una stringa, in quale altra struttura dati vorresti
rappresentare il valore esadecimale risultante dalla conversione?
In delphi non esiste un tipo HexInteger, pertanto l'esadecimale, o lo tratti
come numero, memorizzandolo come intero e usando le funzioni della
matematica intera, oppure lo tratti come stringa, e in quel caso ti scordi
delle funzioni matematiche.
Ciao, Sandro

 ha scritto nel messaggio
news:bfu12v$iarbt$1...@ID-43509.news.uni-berlin.de...


 una stringa.
Esatto! Una stringa "contenente" il rispettivo valore esadecimale...
--
Acqua
-------------------------------------------------------
Download new version of my PixExperts for Delphi 6/C++ Builder 6 at
http://www.salexander.supereva.it/Pix_Exp171D6.zip

> ma se volessi sommare $0C  a $1C (=$28)  ma  non ho $C1 ma 28 come faccio?
x := $0C + 28;


 ha scritto nel messaggio
news:AOvUa.205165$Ny5.5...@twister2.libero.it...


ma se volessi sommare $0C  a $1C (=$28)  ma  non ho $C1 ma 28 come faccio?
$1C non equivale a $28, $1C equivale a 28 in base 10.
Probabilmente ti confondi per il fatto che la somma tra $0C e $1C fa
$28, cioè 40 in base 10.
$0C + $1C = $28 = (40)
 12 + 28  = 40  = ($28)

Newsgroup: it.comp.lang.delphi
Titolo: parametri connessione Crystal Report

Vorrei passare i parametri di un file udl
(con cui mi collego da Delphi a un DB Access)
a un Report realizzato con Crystal Reports 7.
Sono due le cose che mi chiedo:
1. Che tipo di driver deve usare il Report?
2. E' una cosa fattibile?
Grazie
Stefano

ma gli udl non sono dei files che contengono i params per connessioni via
ADO?
Bye
A.

Esatto! Infatti quello che vorrei fare io č
passare questi parametri al componente di
Crystal Report dentro Delphi in modo da svincolare il
report dalla localizzazione del db Access;
in questo modo mi basterebbe editare il file udl
per essere sicuro che applicazione e report puntano sullo stesso
file .mdb?
Io qualche prova l'ho fatta ma non sono ancora riuscito
a passare questi parametri, anche perché finora ho sempre
lavorato su SQL Server passandogli DBServer, DBName, Username e pwd;
ma ho visto che via ADO la faccenda č diversa.
Pensi che si potrŕ fare?
Grazie
Stefano
"Alberto Salvati" <x@x.x from office> ha scritto nel messaggio
news:akv7tm$v12$1...@newsreader1.mclink.it...


io ho usato, purtroppo il cr.
Mettiamo subito in chiaro che cr se ne frega dei metodi di accesso di
delphi.
basta infatti pensare al fatto che cr uo essere usato anche da altri
linguaggi come vb, powerbuilder etc etc etc.
Non posso verificare al momento xche dove lavoro adesso non lo usano.
Se apri l'editor di cr esiste un menu nel quale si puo impostare la
connessione al database.
Questo dato puo essere impostato di sicuro a runtime: io l'ho fatto.
Dovresti quindi controllare se access rientra nei suoi driver standard e
verificare come gestisce il percorso del file database da usare come fonte
dati.
Io usavo Sybase via dsn odbc, ma credo che per access cr preveda un qualche
accesso nativo.
Al momento, di + non so dirti.
Bye
A.

Grazie per i consigli,
sperimenterò...
Stefano
"Alberto Salvati" <x@x.x from office> ha scritto nel messaggio
news:al1o4e$1vpt$1...@newsreader1.mclink.it...

Newsgroup: it.comp.lang.delphi
Titolo: memorizzare file in SQLserver

Ho la necessità di salvare dei file in sqlserver.
Ho provato ad usare il file varbinary ma con scarsi successi.
Qualcuno ha già avuto esperienze in questa direzione e può darmi qualche 
dritta dove reperire materiale?
grazie
Valerio 

 Ho provato ad usare il file varbinary ma con scarsi successi.
6 un po ot, ma puoi spiegare cosa intendi x "scarsi successi"?
A.

Ciao,
prima di tutto grazie per la risposta, poi mi sono dimenticato di 
specificare che ho la necessità di salvare una serie di file in mssql da 
un'applicazione delphi, spero di non essere nel ng sbagliato altrimenti ti 
chiedo cortesemente di suggerirmi quale usare :)
da quanto ho trovato in rete mi è parso di capire che per memorizzare un 
file qualsiasi in un cammpo varbinary (ammesso che sia la tipologia 
corretta) devo aprire il file e metterlo in uno stream e poi versarlo nel 
campo varbinary.
per recuperarlo dovrei fare l'operazione contraria.
Ammesso che la teoria sia corretta sono in difficoltà nella realizzazione 
pratica.


 campo varbinary.
infatti.
ora su 2 piedi mi sfugge se il varbinary di MsSql è assimilabile ad un
campo blob.
Se lo è, una possibile sequenza potrebbe essere questa:
1) usi un tfilestream per leggere il tuo file
1a) ti suggerisco, se puoi e se vale la pena, di comprimere il file
prima di schiaffarlo sul blob/varbinary. A tal proposito vedi la suite
abbrevia su sourceforge.
Ovviamente, se si tratta di jpeg, lascia perdere.
Ma se si tratta di bitmap, documenti word/excel/powerpoint potrebbe
valerne la pena.
Se poi si tratta di pdf, fai 2 prove, xche ora come ora non so di
quanto puo essere compresso un pdf.
2) usi il metodo "loadfromstream" di tblobfields per scrivere lo stream
nel campo:
Delphi syntax:
procedure LoadFromStream(Stream: TStream);
C++ syntax:
void __fastcall LoadFromStream(Classes::TStream* Stream);
Description
Use LoadFromStream to copy the contents of a stream into the BLOB
field. Specify the stream from which the field's value is copied as
the value of the Stream parameter.
A.

 quanto puo essere compresso un pdf.
Un PDF può contenere dati già compressi, quindi un'ulteriore compressione
potrebbe essere controproducente.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Valerio ha scritto:

Il tipo corretto per memorizzare un file generico è image.
puoi leggerlo e scriverlo con i metodi LoadFromFile e SaveToFile.
Ciao Giancarlo.

 potrebbe essere controproducente.
nel caso, serve un qualcosa che ti dica se il contenuto del blob deve
essere decompresso prima dell'uso.
A.
Newsgroup: it.comp.lang.delphi
Titolo: StrToFloat('1.234.567,89')

errore ottenuto:  '1.234.567,89' is no a valid float..
Esiste una funzione bella e pronta per fare la conversione oppure è
necessario scrivere del codice per togliere i punti di separazione
delle migliaia e poi utilizzare StrToFloat?

Scusate, la risposta è qui:
http://groups.google.com/group/it.comp.lang.delphi/browse_thread/thread/2d5f909d5ca7213d/7197467ba1f70d60?lnk=gst&q=strtofloat#7197467ba1f70d60

 delle migliaia e poi utilizzare StrToFloat?
prova a fare
decimalseparator := ',';
prima della conversione, e vedi se ti dï¿œ errore.
oppure, molto piu' pragmaticamente, devi togliere i separatori delle 
migliaia con un replace del punto con vuoto
StringReplace(numero, '.', '',[rfReplaceAll]);
e sostituire la virgola col punto, usa la stessa istruzione di prima.
ulteriori dettagli qui
http://www.delphibasics.co.uk/RTL.asp?Name=StrToFloat
Di fatto il problema sta nei locale settings.
ciao
-- 
Morde

StringReplace(numero, '.', '',[rfReplaceAll]);
+
StrToFloat
funziona benissimo, ed è anche veloce (testato su un ciclo da 6000
operazioni)
Grazie.

Newsgroup: it.comp.lang.delphi
Titolo: Alt+Tab (III parte)

Risalve al NG
Riprendendo per l'ennesima volta il mio posto precedente (tanto per
riassumere, il problema è intercettare, come da oggetto, la pressione dei
tasti Alt+Tab e simili in modo da impedire che il controllo possa passare
dalla mia applicazione (mentre è attiva) ad un'altra).
Ho spulciato i post precedenti (miei e di altri amici), ho provato i vostri
suggerimenti (grazie a tutti) e, per quanto riguarda Win9x, l'uso dell'API
SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(True),@VecchioValore, 0);
come suggerito dall'amico ACSH funziona ottimamente, mentre per NT, 2000 ed
XP ho dovuto orientarmi all'uso di un Hook a basso livello della keyboard.
A parte i miei problemi d'implementazione dell'Hook (probabilmente dovuti ad
"ignoranza" e poca applicazione) ho notato che in Win9x l'uso dell'API di
cui sopra non solo impedisce ai tasti di sistema (quali, appunto Alt+Tab) di
fare il loro dover, ma intercetta ed uccide (se mi passate il termine) anche
altri tasti quali il tasto "PRINT" della tastiera il quale, invece, .... MI
SERVEEEEE.
La domanda è, dunque, la seguente: è possibile l'uso di un HOOK di tastiera
per tutte le versioni di Winsozz, da 9x ad XP oppure devo fare qualche salto
mortale per aggirare il problema ?
Con l'hook, visto che il codice è mio, faccio presto a fare un filtro SOLO
per le combinazioni di tasti che desidero "annullare".
Grazie a tutti.
Andrea Foresti

 ha scritto nel messaggio
news:gsYaa.192522$YG2.5...@twister1.libero.it...


Ciao Giuseppe
Per avere maggiori delucidazioni va al seguente link
http://members.fortunecity.it/cbertu/Programmi.htm
e' di un nostro comune amico del ng e contiene un programma che intercetta
tutti i messaggi di tastiera.
Bye
Andrea

 ha scritto nel messaggio
news:pckba.2259$Lr4....@twister2.libero.it...



Se ti può servire ho trovato su Delphi.About un interessante articolo
che tratat proprio di questi argomenti.
Ecco il link:
http://delphi.about.com/library/weekly/aa012103a.htm
ciao
Al
Newsgroup: it.comp.lang.delphi
Titolo: Start Avvio automatico

Start :
Molto spesso quando installate un programma questo lo vedete ad es. facendo
start->Programmi->Mio programma.
Come faccio a fare una cosadel genere con un mio programmino?
Avvio Automatico
Alcuni programmi in avvio automatico vengono salvati nella cartella Avvio
Automatico
altri no. supponiamo di stare nella seconda ipotesi come bisogna fare?
Grazie
Antonio Volpe.

 altri no. supponiamo di stare nella seconda ipotesi come bisogna fare?
Inserire una chiave nel registry 
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
oppure
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
-- 
I'am what I'am, I do what I can

 HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
Come si aggiunge una chiave al registro?
Grazie ancora.
Antonio.

 Come faccio a fare una cosadel genere con un mio programmino?
...
Vuoi fare un programma per l'installazione di programmi o vuoi
installare un tuo programma con un installer?
Nel primo caso *vedi come fa* un installer OS come InnoSetup; nel
secondo caso *usa* un installer (ad es InnoSetup)
Se invece vuoi fare in modo che il tuo programmino ti veda mentre
installi un programma facendo start->programmi->Mio programma riformula
la domanda in it.fan.matrix.
Saluti
Paolo Arosio
-- 
"La dimostrazione dell'esistenza di specie intelligenti nell'universo
 e' che non ci vengono a trovare"

 Come si aggiunge una chiave al registro?
Ci sono 2 metodi devi comunque includere nell'uses Registry
o usi TregIniFile..
guarda quí é spiegato in modo semplice
http://www.fuckinworld.org/programmazione_delphi_corso.htm
oppure Tregistry che ho usato raramente e non saprei spiegare.
ciao
erik

la domanda in it.fan.matrix.
LLLLOOOOOLLLLLL!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!11111
-- 
Morde. 
(
mo...@despammed.com
)

 Non ho la minima idea su come fare.
Devi utilizzare SHGetPathFromIDList per trovare la cartella dei
programmi poi le interfacce IShellLink e IPFile per creare i link.
Cerca con google, si trovano decine di esempi di codice.


 Come faccio a fare una cosadel genere con un mio programmino?
Prova TFastShellLink, lo trovi su 
it.torry.net
, dovrebbe funzionare anche su
D6 (sicuramente) e D7 (forse).
Per creare un collegamento in esecuzione automatica piazzi un componente
sulla form e fai:
  fLink.LinkName := sName;  // il nome del collegamento
  fLink.LinkTarget := sFile; // il comando che il collegamento lancia
  fLink.CreateIn.ShellFolder := sfStartUp;
  fLink.Execute;
--
Jax
====
Nulla rende cosě amabili come il credersi amati.


Attento: Matrix gira su server Linux: non c'e' il "tasto start".
:)
Ciao.
--
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio
Newsgroup: it.comp.lang.delphi
Titolo: intero * decimale

Salve a tutti,
eccomi ancora qui con un piccolo problema con Delphi, facile, facile,
solo per quelli che lo sanno:-))))
var
  Form1: TForm1;
  intero1, intero2 : integer;
  decimale : single;
implementation
{$R *.dfm}
begin
Intero1 := 123;
decimale  :=0.42356;
intero2 := intero1*decimale;
writeln intero2;
end.
Il compilatore mi da questo errore(31): Incompatible types "Integer and
Extended'
Domanda, come faccio a convertire una espressione da single ad intero?
Ho provato con FloatToInt(intero2);  con intero2:= integer(intero1*decimale)
niente, sapete darmi una mano?
Grazie assai:-))
Enrico

 end.
puoi usare Round(x) o Trunc(x), (oppure anche Ceil(x) e Floor(x)).
In generale usi i primi due, Round ti arrotonda all'intero piu' vicino (2.8
diventa 3), mentre Trunc lo tronca (2.8 diventa 2).
Ceil e Floor hanno dei comportamente un po' diversi con i numeri negativi.
Se ti occorre, guarda sull'help.
Ciao!

...

Istruzioni corrette:
Intero1 := 123;
decimale  :=0.42356;
 
intero2 := Round(intero1*decimale);
writeln intero2;
Non puoi mettere un decimale (real, single, extended o altro) in un
intero! Per questo esistono le funzioni Round (per arrotondare il
numero) o Trunc (per troncarlo).

"Nicola {MSX} Lugato" <TOGLIMAIUSCOLEni...@NOSPAMtinDOT.it> ha
scritto nel messaggio news:gAjla.87135$Jg1.2...@news1.tin.it...
Salve,
ringrazio tutti per  la risposta "celere":-)
Ho girato l'Help, ma non immaginavo queste parole, eh! ho ancora tanto da
imparare " senza manuali", confiderò in questo NG:-)
Ringrazio ancora
Enrico


Newsgroup: it.comp.lang.delphi
Titolo: Firebird+ Linux

 Salve a tutti,
Non riesco a capire perke da delphi quando cerco di collegarmi al mio 
server linux mi da errore 'Unabled to complete network request to 
host "192.168.." Undefined service gds_db/tcp. Mentre su server fb per 
win non lo da? 
Qualcuno mi puo' aiutare!
Nb:Il file services mi sembra tutto ok
--- posted by geoForum on 
http://www.delphiedintorni.it

ManuDev ha scritto:
 > Non riesco a capire perke da delphi quando cerco di collegarmi al mio
 > server linux mi da errore 'Unabled to complete network request to
 > host "192.168.." Undefined service gds_db/tcp. Mentre su server fb per
controlla che nel file /etc/services sia presente questa riga:
gds_db         3050/tcp
Ciao
Giorgio

Newsgroup: it.comp.lang.delphi
Titolo: opendialog e directory

esiste un opendialog che apra solo una directory?
mi spiegio maglio, io non voglio aprire un file, ma una directory da cui poi
eseguire delle operazioni tipo copia dei file ecc..

esiste un opendialog che apra solo una directory?
SelectDirectory nella unit FileCtrl.pas
Newsgroup: it.comp.lang.delphi
Titolo: showmessage non rimane in front of

Ciao a tutti,
Ho un applicazione .exe contenente il componente tidhttpserver e quando
eseguo una showmessage il pop-up non rimane in fronte a tutto, ma "dietro" a
internet explorer. Qualche idea?

 ha scritto nel messaggio
news:c6o0k4$easfd$1...@ID-100273.news.uni-berlin.de...

Su che sistema operativo?


Ciao,
Grazie per aver risposto, ora lo sto provando su 2000 ma l'errore si
presenta anche su 98.
Ho provato con MessageDlg, ma rimane esattamente dietro la finestra di
internet explorer
Ciao e grazie ancora, sto impazzendo!!


Ciao,
Ho provato anche cosě, ma nulla, rimane dietro IE
with Application do
begin
    NormalizeTopMosts;
    MessageBox('This should be on top.', 'Look');
    RestoreTopMosts;
end;
Help, please :(

questa l'hai gia provata?
PostMessage(GetDesktopWindow,WM_SYSCOMMAND, SC_HOTKEY, 
Application.MainForm.Handle);
MessageBox('This should be on top.', 'Look');
A


Ciao,
Grazie per l'interesse, davvero!!
Ho provato questo:
PostMessage(GetDesktopWindow,WM_SYSCOMMAND,SC_HOTKEY,Application.MainForm.Ha
ndle);
Showmessage('This should be on top.');
Con la messagebox ho un errore di incompatible types HWND and string!!
Nulla rimane comunque dietro a IE.
Brevemente: Ho un app nella taskbar che ingloba un componente tIDHttpServer
e quando dall'app eseguo una showmessage( o altri messagi) questo rimane
dietro a internet explorer e l'utente aspetta a "infinito".
Grazie delle risposte


Ciao, Funziona!!!
Con questo codice:
PostMessage(GetDesktopWindow,WM_SYSCOMMAND,SC_HOTKEY,Application.MainForm.Ha
ndle);
            with Application do
            begin
                NormalizeTopMosts;
                MessageDlg(p2, mtInformation, [mBOK], 0);
                RestoreTopMosts;
            end;
Grazie, grazie, grazie!!!!
Newsgroup: it.comp.lang.delphi
Titolo: parser file

salve a tutti dovrei convertire del codice scritto in vb in delphi per 
leggere dei file, di seguito il codice, in particolare non so come fare in 
delphi per assegnare tutto il contenuto del file ad un array di byte e fare 
la strconv.
Grazie a tutti.
 Dim x() As Byte
 Dim a() As String
 Dim s As String
 Open "C:\IMPORTAZIONE\clienti.txt" For Binary Access Read As #1
    ReDim x(LOF(1))
    Get #1, , x
    s = StrConv(x, vbUnicode)
    a = Split(s, vbCrLf)
-- 
 

vedi la classe tfilestream, metodo read.
AS

"FabSW" nel precedente post ha scritto:

Se nel file c'č testo potresti pensare di utilizzare
una istanza di TStrings (TStringList) chiamando il suo
metodo LoadFromFile e fa tutto lui ... passando il
contenuto del file in una lista di linee di testo che č
appunto il TStrings.Strings
	Ciao
	MassimoB
 
---------------------------------
http://www.massimobeschi.it/
---------------------------------
Se tu pagare come dici tu ...
Io lavorare come dico io ...
Se tu pagare come dico io ...
Io lavorare come dici tu ...
---------------------------------

 ha scritto nel messaggio 
news:deml9d$oen$1...@area.cu.mi.it...

Grazie ad entrambi, ho dovuto usare lo stream in quanto con la stringlist 
,ed anche usando il textfile, mi carica solo le prime 2 righe, credo ci sia 
un eof in mezzo al file, invece caricandolo in blocco con lo stream non mi 
da problemi.

Newsgroup: it.comp.lang.delphi
Titolo: Esportare in un foglio Excel

Ho un file txt con al suo interno dei dati organizzati in un certo modo.
Tipo :
fisso
tel         8005811
Nome    mario
cognome rossi
cell
tel         3338005811
Nome    mario
cognome Bianchi
ecc..
come leggere i dati credo di saperlo fare ma per esportarli in un  file
excel come si fa?
io vorrei ottenere una cosa del genere.
Tipo    Numero          Nome       Cognome
fisso    8005811         mario         rossi
cell      3338005811   mario         Bianchi
ecc...

cognome rossi
la cosa piu' veloce e "versatile" secondo me è
scrivere il file nella forma:
fisso;tel;nome;cognome;
in pratica un file .cvs, poi eseguirlo con shellexecute..
excel (o chi per lui), lo aprirà
oppure, pilotare excel tramite OLE
Ciao,
Alan Solo

 ha scritto nel messaggio
news:bhBjPy7djRP8F8...@4ax.com...

Newsgroup: it.comp.lang.delphi
Titolo: cluster / cancellare file o solo record

Visto il mio precedente post sulla cancellazione di file permanente mi sono
domandato ora questo:
- Se io utilizzo un dB Ado e creo 10 record (diciamo vuoti)... poi l'utente
comincia a inserire i record partendo dalla prima posizione vuota; quando
arriva al 10° record ricomincia dal primo (naturamente perderò i record
precedenti) ... c'e' una sicurezza o un modo per poter verificare che i
record andranno a sovrascriversi fisicamente nella stessa posizione fisica
(in hard disk) dei record precedenti ???
- Seconda domanda : c'e' un modo non per modificare ma per vedere
fisicamente dove i file vanno a scriversi nell'hard disk !!! ??
Stefano LD

 fisicamente dove i file vanno a scriversi nell'hard disk !!! ??
con qualche utility che accede direttamente al disco, penso...
Ciao
Matteo
Newsgroup: it.comp.lang.delphi
Titolo: Form su una proprietà di un componente (Design-time)

Buongiorno a tutti, sto creando il mio primo componente (.dpk) e sono
fermo da un pò su questa questione...
Una volta installato il pacchetto in Delphi (utilizzo Delphi 7) è
possibile a DesignTime mostrare una form nel momento in cui io vado a
cliccare su una proprietà del componente?
Ad esempio se clicco sulla classica proprietà caption di qualsiasi
componente, Delphi mi apre una "form" dove è possibile inserire un
campo stringa... Ecco vorrei simularlo solo che vorrei utilizzare una
mia form che sta all'interno del pacchetto.
Spero di essermi spiegato...
Ringrazio tutti in anticipo, Saluti Davide


wrote:
<snip>
Cerca "property editor" su Google.
Newsgroup: it.comp.lang.delphi
Titolo: TSqlDataSet

Con questi parametri mi connetto a Interbase con driver DBExpress
ConnectionName=GestCont
DriverName=Interbase
GetDriverFunc=getSQLDriverINTERBASE
LibraryName=Librerie\Interbase\Windows\dbexpint.dll
LoginPrompt=false
Blobsize=-1
CommitRetain=false
Database=\\192.168.3.1\D:\Interbase\data\GestCont.gdb
DriverName1=Interbase
LocaleCode=0000
Password=antonio
RoleName=RoleName
ServerCharSet=
SQLDialect=3
Interbase TransIsolation=ReadCommited
User_Name=antonio
WaitOnLocks=true
VendorLib=Librerie\Interbase\Windows\gds32.DLL
Come mai che la connessione viene aperta, la stringa sql viene eseguita ma
all'apertura del DataSet(SqlDataSet.Open) mi viene elevato l'errore dal
database: 'Sql Error: error mapping failed'.
Questo avviene solo con Delphi 7. Con Delphi 6 funziona perfettamente. Da
cosa può dipendere?
--

qualche default potrebbe essere diverso tra 6 e 7.
Accertati che le proprietà abbiano sempre lo stesso valore indipendentemente
dalla versione.
Bye
A.

Newsgroup: it.comp.lang.delphi
Titolo: Quick report

Ho installato la vecchia versione di quick report su delphi 7 solo per la
curiosità di provare
Come si puo fare per avere l'help di quick report a disposizione come per
gli altri componenti

 curiosità di provare
Perchè ne hai installata una vecchia se con Delphi 7 ti danno anche quella
nuova? Vedi file Dclqrt70.bpl nella cartella Bin.
Saluti
        Marco Bortolani
        info @ 
marcobortolani.it

 nuova? Vedi file Dclqrt70.bpl nella cartella Bin.
scusa come si fa

)

Newsgroup: it.comp.lang.delphi
Titolo: [D5 PRO] Ricerca file

Dovrei realizzare un form che contenga una lista di file che sono stati
creati/modificati in un certo range di date.
Avete suggerimenti su come filtrare tali file ??
Grazie
Michele

begin
    Cerca un po' sulle funzioni FindFirst e FindNext e sulla struttura
TSearchRec;
    Ci dovrebbe essere qualcosa che fa al caso tuo;
end;
CIAOUX

 Avete suggerimenti su come filtrare tali file ??
Scarica la JCL (
www.delphi-jedi.org
), nella unit JclFileUtils ci sono le
funzioni GetFileLastWrite, GetFileLastAccess, GetFileCreation, etc... che ti
possono aiutare.
Usa FindFirst/FindNext/FindClose per cercare i file.
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:aohbth$m121j$1...@ID-110545.news.dfncis.de...

Newsgroup: it.comp.lang.delphi
Titolo: Database access2000 con Delphi 5

ciao sono nuovo mi chiamo Giorgio vorrei sapere se c'è un sistema per far
dialogare delphi 5 con access 2000 vi ringrazio in anticipo

ADO, guarda sulla component palette...
--
Consonni Davide
bmq...@tin.it
gna...@wappi.com
webmaster of
http://gnaffy.Tripod.com
http://www.traduzioniellepi.com

Che versione hai di D5?
se hai la Enterprise puoi usare i componenti ADOexpress che ti permettono di
accedere ai file Access usando ADO con dei componenti molto simili ai soliti
Tdatabase, Ttable, Tquery ecc.
se hai la versione Pro questi componenti non sono presenti, ma hai almeno
alre 3 possibilità (in relatà sono 2 di cui una con una variante)
1) creare una sorgente dati ODBC per accedere al file Access ed utilizzarla
dal BDE in modo tradizionale
molto semplice, ma è lento
1-1) usare ADO con le variabili Variant (vedi istruzione CreateOleObject),
devi aggiungere ComObj nelle uses
es:
  var Connessione,Recordset:Variant;
  Connessione:=CreateOleObject('ADODB.Connection');
  Connessione.Open('stringa di connessione','username','password',-1);
  Recordset:=CreateOleObject('ADODB.Recordset');
  Recordset.Open:=('comando sql',Connessione,1,1,1);
Per sapere come si usano gli oggetti Connection e Recordset e i parametri da
usare devi guardare direttamente la documentazione di ADO.
Non devi impelagarti con conoscenze sulle interfacce e COM, ma non hai
nessun controllo formale a design time, gli errori ti saltano fuori tutti
solo a runtime
1-2) usare ADO direttamente chiamando le sue interfacce, aggiungendo
ADODB_TLB nelle uses o caricando la type library Microsoft Active Data
Object 2.5 da project -> import type library (ADODB_TLB.pas potresti non
averla, ma si può farla costruire direttamente a delphi);
es:
var Connessione:_Recordset;
     Recordset:_Recordset;
Connessione:=CoConnection.Crete;
Connessione.Open('stringa di connessione','username','password',-1);
Recordset:=CoRecordset.Create;
Recordset.Open('comando
sql',Connessione,AdOpenKeySet,AdLockOptimistic,AdCmdText)
è il sistema più complesso, (senza un minimo di conoscenze su COM non ne
cavi un ragno dal buco) ma hai code completion, controllo formale a designe
time ed è il più veloce.

 ha scritto nel messaggio
news:97b45l$oah$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.delphi
Titolo: Errore componenti Indy

Ciao a tutti, chiedo in quanto sto' impazzendo con un problema, credo, 
stupido.
Lavoro con i componenti Indy (versione 10) e, sul Delphi 5 (lo so e' 
vecchia ma non posso cambiarla) ho un grave problema con il componente 
TIdTCPServer nel momento che eseguo un Active := False, nel senso che mi 
viene generata un'eccezione di "Privileged instruction" o un classico 
"invalid Pointer Operation".
Notate che per testare ho creato un progetto nuovo con un'unica form, 
un'unico bottone ed il componente TIdTCPServer. Alla prima pressione del 
bottone metto lo stato di active a true - e tutto funziona bene compresa 
l'apertura della porta nel sistema - con il secondo click inverto lo 
stato e mi ritorna l'errore.
Non so piu' dove sbattere la testa, se qualcuno mi potesse aiutare ne 
sarei veramente grato.
Grazie,
David

1) Quante schede di rete fisiche ha il pc?
2) Sul pc e' installato qualcosa di vmware?
3) Succede solo sul tuo pc o anche su altri?
A.

 3) Succede solo sul tuo pc o anche su altri?
Purtroppo a tutti gli XP

> Purtroppo a tutti gli XP
Firewall di windows: attivo o no?
Antivirus: quale? Identico su tutti i pc?
Noti rallentamenti se fai un ping sui pc incriminati?
Hai il service pack3 di xp?
Sono tutti uguali?
Ti sta succedendo da un po oppure prima andava tutto ok e mo da
qualche tempo fa sta cosa?
A.

Firewall di windows disattivato
Antivirus avast
Nessun rallentamente se eseguo un ping
XP con service pack 2
No. I computer non sono identici
Mi ha fatto sempre cosi ma, ho provato oggi, con Delphi 2006 tutto ok
Alberto Salvati ha scritto:


Newsgroup: it.comp.lang.delphi
Titolo: moddare emule

Cerco dei programmatori che sanno modificare il codice sorgente di
emule 0.45b per creare un mod del programma in questione. Il progetto
resta completamente free. Per qualunque altra informazione potete
conttattarmi al seguente indirizzo 
ferraro....@gmail.com
.
Cordiali saluti
dj Bill


Emule è scritto in Vb? da quando!
E poi...che ci vorresti fare che già non c'è???
Un sistema per scalare le liste????

 Un sistema per scalare le liste????
Occhio che c'e' un crosspost: rispondete solo sul vostro ng per favore.
Ciao a tutti.
(Follow-Up impostato su it.comp.lang.delphi)
-- 
Morde. 
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

Newsgroup: it.comp.lang.delphi
Titolo: documenti word in Delphi

Qualche anima caritatevole saprebbe indicarmi dove reperire
esempi di gestione documenti Word da Delphi con intestazioni,
piè di pagina, tabelle..?
Grazie!!!  :)

 ha scritto nel messaggio
news:934b3n$62r$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.delphi
Titolo: OpenDialog e directory

Prima che me lo diciate voi, vi anticpo dicendovi che non e' *la* faq su
TOpenDialog :-)
A me servirebbe che la TOpenDialog mi restituisse, oltre ai file
selezionati, anche le directory. Nella proprieta' Files vengono inclusi
soltanto i file mentre a me servirebbe avere anche le directory. Avete
qualche idea o suggerimento per ottenere questo comportamento?
-- 
Lis
Mercatino: 
http://snurl.com/sito_lis
Aiuta la ricerca contro il cancro: 
http://snurl.com/ida_team

 soltanto i file mentre a me servirebbe avere anche le directory.
La TOpenDialog include anche le directory.



Sei sicuro? Sto provando ora e non riesco ad ottenere le directory.
Uso D6 Pro, ho provato ad aggiungere una TOpenDialog senza modificare
nessuna opzione se non quella per la selezione multipla.
  if OpenDialog.Execute then begin
    for i := 0 to OpenDialog.Files.Count - 1 do begin
      //
    end;
  end;
Ora, non so se sto sbagliando io qualcosa ma eseguendola e selezionando una
directory e 2 files la proprieta' files contiene sempre solo i files.


> Sei sicuro?
Sě, io sto usando D7 Professional.

 Sě, io sto usando D7 Professional.
Mmm...io uso D6 Pro su un Win2000 SP3. Possibile che dalla 6 alla 7 sia
cambiato qualcosa? Posterei anche il codice della TOpenDialog ma sono 420
righe di codice...


 cambiato qualcosa?
Purtroppo c'è un bug:
http://www.mindspring.com/~cityzoo/buglist/vcl.html
"TOpenDialog.Files property does not handle files in root directory if
ofMultiSelect option is set.
  Description:
  Allowing multiple files to be selected in the TOpenDialog component
via the ofMultiSelect option can cause problems if selected files are
in the root directory of a drive. The files will have two backslashes
following the drive letter and colon. For instance, selecting
AUTOEXEC.BAT and CONFIG.SYS from C:\ directory will cause Files[0] to
return C:\\AUTOEXEC.BAT and Files[1] to return C:\\CONFIG.SYS.
  Solution:
  Use the Pos function to search each item for double backslashes
(Pos('\\', Files[x])) and use the Delete procedure to remove one of
the backslashes if found."

 ofMultiSelect option is set.
Non è il mio caso, facevo le prove da una directory diversa dalla root e
comunque per curiosità ho provato a verificare quel bug e non si verifica.
Il sito però ho visto che è piuttosto vecchio, magari faceva riferimento a
versioni più vecchie di Delphi.
grazie


 comunque per curiosità ho provato a verificare quel bug e non si
verifica.
Hai ragione, per errore ti ho segnalato la cosa sbagliata (la fretta).
In ogni caso, controlla il codice sorgente, magari vacci passo passo.

 In ogni caso, controlla il codice sorgente, magari vacci passo passo.
Ho provato ad andarci passo passo ma non riesco comunque a capire dov'è il
problema. Grazie ugualmente

Newsgroup: it.comp.lang.delphi
Titolo: Problema con data...molto ostica!

Vado subito al punto...
una certa funzione mi restituisce il numero di secondi (espressi in 4 byte)
trascorsi da una prefissata data.
Ad esmpio: (sono valori realmente ottenuti)
3E 30 5A 60 equivale alle ore 22:10.56s del 23 gen 2003 (che sarebbero
1043356256 secondi dalla data X)
3E 30 5B 1D equivale alle ore 22:14.05s del 23 gen 2003 (che sarebbero
1043356445 secondi dalla data X).
Ora il mio "problemino" è, avendo la data in 4 bytes, espressa come tempo
intercorso con la data X in questione, come faccio a calcolare da data in un
formato + decente? tipo:
da        3E 30 5B 1D
a            23-01-2003, 22:14.05s
Idee?

>Idee?
la tua data di 4 byte e' un integer che esprime il n. di secondi a
partire dalla data X.
Come sai, per le date in Delphi si utilizzano gli oggetti TDateTime.
Gli oggetti TDateTime sono in pratica dei double, che indicano i
giorni e la frazione di giorni a partire da una (diversa) data-zero,
che qui non interessa.
Quindi, letti i tuoi 4 byte in una variabile integer NSec, puoi
risolvere seguendo il codice allegato (che non ha nessuna pretesa di
essere ottimizzato):
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
  StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
function Date0:TDateTime;
function ToDateTime(NSec:integer):TDateTime;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
   t1:TDateTime;
begin
   t1:=ToDateTime(1043356445);
   Edit1.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss', t1);
end;
function Date0:TDateTime;
var
   d,h,m,s:integer;
begin
{
3E 30 5B 1D equivale alle ore 22:14.05s del 23 gen 2003 (che sarebbero
1043356445 secondi dalla data X).
}
   d:=1043356445 div 3600;
   d:=d div 24;                  {giorni}
   s:=1043356445 - d*24*3600;    {resto}
   h:=s div 3600;                {ore}
   s:=s-h*3600;                  {resto}
   m:=s div 60;                  {minuti}
   s:=s-m*60;
   result:=EncodeDate(2003,1,23)+EncodeTime(22,14,5,0)-d
-EncodeTime(h,m,s,0);
end;
function ToDateTime(NSec:integer):TDateTime;
var
   d,h,m,s:integer;
begin
   d:=NSec div 3600;
   d:=d div 24;                  {giorni}
   s:=NSec - d*24*3600;          {resto}
   h:=s div 3600;                {ore}
   s:=s-h*3600;                  {resto}
   m:=s div 60;                  {minuti}
   s:=s-m*60;
   result:=Date0+d+EncodeTime(h,m,s,0);
end;
end.

 essere ottimizzato):
<CUT>
Integer???????? e c'entrano quelle cifre astronomiche????
Cma il codice sembra funzionare benissimo!!!
Grazie mille!!!!!!!

 Integer???????? e c'entrano quelle cifre astronomiche????
guarda che un integer è un intero a 32 bit segnato
(-2.147.483.648..2.147.483.647)
ciao
Matteo
Newsgroup: it.comp.lang.delphi
Titolo: Debug Librerie

Spesso ho la necessità di debuggare delle librerie ma
il debug non funziona perchè cliccando su Run parte
l'Host Application inserita ma nella barra alla sinistra
dell'editor non appaiono i puntini di compilazione ed il
debug non si ferma sui breakpoints.
Solo sporadicamente e senza capire il perchè
mi è capitato che tutto funzionasse come dovrebbe.
Raf

RG wrote:
<snip>
Ciao, ho un suggerimento molto carino per te, che
però funziona solo per le DLL "normali" non ActiveX.
Scrivi le tue funzioni all'interno di units che poi utilizzi in
modo "normale" e quando sei sicuro che vanno, le
trasferisci in una DLL... sinceramente mi sembra molto più
logico, non trovi anche tu?
Ciao
Andrea

logico, non trovi anche tu?
Ho usato spesso questa tecnica per ovviare al problema
ma molte altre volte ho la necessità di debuggare direttamente
la libreria con i valori passati dall' Host Application...
e comunque quest' "escamotage" non risolve il problema
ma lo aggira... io invece vorrei risolverlo una volta per tutte.
Raf

 Raf
-- 
Ciao, Anto', [35, 143, AQ] 
MB C SC 220 CDI Magma Red

 project manager, cioč il nome della libreria deve essere in grassetto.
..bhč..questo era ovvio..il problema si presenta
anche se la libreria che devo debuggare e l'unico progetto
aperto.
Raf

usi delphi5 su xp?
Bye
A.

> usi delphi5 su xp?
..si uso Delphi5 su XP.
Newsgroup: it.comp.lang.delphi
Titolo: Info per non scrivere troppo...

Non è particolarmente importante... ma devo scrivere per alcune routine
davanti alle istruzioni :
formNOME.componenteNOME1
formNOME.componenteNOME2
ecc..
c'è una qualche istruzione che mi permette di non ripetere formNOME davanti
all'infinità di componenti che ci sono nella form?
Grazie
Paolo

 ha scritto nel messaggio
news:xjMV6.1478$GZ5....@news1.tin.it...

With formNOME do
Begin
 componenteNOME1.blablabla
 componenteNOME2.blablabla
 ....
end;
HTH
 Marco

Grazie

 ha scritto nel messaggio
news:xjMV6.1478$GZ5....@news1.tin.it...
: Non è particolarmente importante... ma devo scrivere per alcune routine

ad esempio una cosa del genere ?
se hai 100 TEdit che si chiamano NomeComponente1, NomeComponente2, etc...
var
 I:Integer;
...
for i:=1 to 100 do
 TEdit(FindComponent('NomeComponente'+inttostr(I))).text:='Sono il
componente numero '+inttostr(I);
ciao
giuliano

Newsgroup: it.comp.lang.delphi
Titolo: In una TDBGrid si può inserire un CheckBox?

In una TDBGrid si può inserire un CheckBox?
Grazie per l'interessamento Fra.

Devi usare un DBCtrlGrid.
Ciao.

 Ciao.
Non esiste solo questo sistema.
Per usare proprio una DBGrid nella form dove hai la griglia, metti anche un
componente DBCheckbox con la proprietà Visible = False.
Genera un evento relativo alla griglia DBGrid1DrawColumnCell con questo
codice :
procedure TDbaForm.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (gdFocused in State) and (Column.Field = Table1Senior)
   then
    begin
      DBCheckBox1.SetBounds (
      Rect.Left + DBGrid1.Left + 1,
      Rect.Top + DBGrid1.Top + 1,
      Rect.Right - Rect.Left,
      Rect.Bottom - Rect.Top);
  end;
end;
Genera un evento DBGrid1ColEnter relativo alla griglia con questo codice :
procedure TDbaForm.DBGrid1ColEnter(Sender: TObject);
begin
  if DBGrid1.Columns [DBGrid1.SelectedIndex].Field = Table1Senior
   then
    DBCheckBox1.Visible := True
  else
    DBCheckBox1.Visible := False;
end;
Genera un evento DBGridKeyPress relativo alla griglia con questo codice :
procedure TDbaForm.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if DBCheckBox1.Visible and (Ord (Key) > 31)
   then
    begin
     Key := #0;
     DBCheckBox1.Checked := not DBCheckBox1.Checked;
    end;
end;
Io l'ho imparato leggendo i libri di Marco Cantù e mi è sempre tornato
utile.
CYO,
--
RaSca
http://web.tiscalinet.it/rascasoft
Newsgroup: it.comp.lang.delphi
Titolo: Componente XP Buttons

Ciao a tutti, in un mio progetto dovrei immettere dei bottoni (al posto dei
classici tbutton o tbitbutton) stile win XP.... sapete se esiste qualcosa di
free per delphi 7?
Grazie 1000
-- 
Lorenzo Mendini Iz2FOS
ICQ: 26993628 (Ayrton)
http://www.polopositivo.org
 (Home Page)

 Grazie 1000
-- 
Ciao, Anto', [37, 143, AQ] 
MB C SC 220 CDI Magma Rot
"Di sempre cio' che senti e fai cio' che pensi."
    G.G. Màrquez

 free per delphi 7?
Prova con 
http://www.lmdinnovative.com/
ciao
Gianni
Newsgroup: it.comp.lang.delphi
Titolo: Problema con controllo TBitBtn

Ciao a tutti,
    mi trovo in difficoltà su un problema con l'oggetto bottone, in 
particolare con TBitBtn.
    Ho la necessità di cambiare il colore del testo del bottone (caption) 
senza  accedere direttamente alla proprietà Font e Color ma solo conoscendo 
l' Handle del controllo.
    In pratica individuando un tasto posto su di una form tramite l'api di 
Windows e avendo l'Handle di quel tasto che Windows mi restituisce, dovrei 
poter cambiare le impostazioni e quindi il colore della scritta del tasto.
Un grazie anticipato

LONG SetWindowLong(
    HWND hWnd,	// handle of window
    int nIndex,	// offset of value to set
    LONG dwNewLong 	// new value
   );
come nIndex usa questi:
 - GWL_EXSTYLE	Sets a new extended window style.
 - GWL_STYLE	Sets a new window style.
quì un esempio tratto da Torry: (nn è proprio quello ke ti serve, ma ti 
mostra il modo di usare la funzione in questione)
http://www.swissdelphicenter.ch/torry/showcode.php?id=11
--- posted by geoForum on 
http://www.delphiedintorni.it

Newsgroup: it.comp.lang.delphi
Titolo: Unione celle di Excel da Delphi

Ciao a tutti, dunque in Excel è possibile selezionare più celle quindi
unirle in un unica cella, io vorrei fare la stessa cosa all'interno di un
programma Delphi. Non ho problemi nel richiamare Excel, creare un foglio di
lavoro e mettergli dentro dei dati però non sono riuscito a capire come
unire le celle.
Grazie in anticipo a chi vorra' aiutarmi.
--
============================================
Ivano Bergamini
e-mail: 
iv...@tesis.it

 ha scritto nel messaggio
news:JSb97.26877$0Z1.1...@news.infostrada.it...

Ciao,
hai provato con il metodo merge ?
Esempio:
rngProva := ExcApp.Range['A1','D1'];
rngProva.Merge ;
Ciao
Tony

Newsgroup: it.comp.lang.delphi
Titolo: Alter procedure Errata

Ciao sto cercando di modificare una store procedure, passo a sql
l'istruzione sotto indicata ma mi presenta l'errore
Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Invalid command.
Cerco di eseguire la seguente istruzione:
ALTER PROCEDURE TESRDA_NUM (CON VARCHAR (2))
RETURNS (ID INTEGER)
AS BEGIN
if (:con = 'IN') then
ID = GEN_ID(TESRDA_TESNUM_IN,1)
if (:con = 'CI') then
ID = GEN_ID(TESRDA_TESNUM_CI,1)
if (:con = 'CP') then
ID = GEN_ID(TESRDA_TESNUM_CP,1)
if (:con = 'AA') then
ID = GEN_ID(TESRDA_TESNUM_AA,1)
SUSPEND;
END
Potete aiutarmi ????
Grazie 1k per l'aiuto
Ciao by Logan bye bye .......

Sostituisci ":Con" a "Con"
--- posted by geoForum on 
http://www.delphiedintorni.it

 --- posted by geoForum on 
http://www.delphiedintorni.it
Grazie 1k provo subito!!!
Ciao by Logan bye bye ....................

1) manca il set term, come scritto nella guida sql di interbase
2) mancano i ; come scritto nella guida di interbase
A
Newsgroup: it.comp.lang.delphi
Titolo: ancora mysqldump da delphi ci sono quasi ma.....

Dunque seguendo un consiglio di qui e di là sono arrivato a farlo 
funzionare ma mi manca la possibilità di parametrizzare il bat
mysqldump  --opt --user=root --password= lido >%1
premetto che se uso il bat da riga di comando funziona correttamente 
passando un nome file mentre lanciandolo da delphi mi dice che è 
impossibile trovare il file che dovrebbe servire da destinazione del dump.
Se uso il bat senza passare parametri ma indicando il nome file nel bat 
stesso e lanciandolo da delphi tutto ok nnndò sbaglio !??!?!
percorsofile := ExtractFilePath(ParamStr(0)) + 'backup\backupsql.bat 
dati.sql';// il parametro è dati.slq
ShellExecuteOpenWait(percorsofile);
ovvero
function TfrmConfigprod.ShellExecuteOpenWait(const FileName: String): 
Integer;
var
   SEInfo: TShellExecuteInfo;
   ExitCode: DWORD;
   ExecuteFile: string;
begin
   ExecuteFile:= FileName;
   FillChar(SEInfo, SizeOf(SEInfo), 0);
   SEInfo.cbSize := SizeOf(TShellExecuteInfo);
   with SEInfo do begin
     fMask := SEE_MASK_NOCLOSEPROCESS;
     Wnd := Application.Handle;
     lpFile := PChar(ExecuteFile);
     lpVerb := PChar('Open');
     lpParameters := nil;
     nShow := SW_SHOWNORMAL;
   end;
   if ShellExecuteEx(@SEInfo) then begin
     repeat
       Application.ProcessMessages;
       GetExitCodeProcess(SEInfo.hProcess, ExitCode);
     until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
   end;
   Result := ExitCode;
end;

mysqldump  --opt --user=root --password= lido %1
il parametro corrisposndente a %1 dovrà essere:
'>fileoutput.sql'
Giovanni Caramia

ovviamente completo di percorso ad esempio '>c:\xx\yy\fileoutput.sql'

 
ok ok questo lo sò quello che non sò è il perchè passando da riga di 
comando il suddetto parametro (che tra l'altro può benissimo essere un 
qualsiasi nome di file con il relativo oppure meno percorso..ho fatto le 
prove del caso) il bat funziona correttamente mentre passando lo stesso 
parametro dal codice questo non và.
Repplico il codice della chiamata soltanto per completezza:
percorsofile := ExtractFilePath(ParamStr(0)) + 'backup\backupsql.bat 
dati.sql';
ShellExecuteOpenWait(percorsofile);
e nel bat
mysqldump  --opt --user=root --password= lido > %1 (ho provato anche a 
non lasciare lo spazion dopo il >
continua dirmi che non trova il file ma come sappiamo il file deve 
crearlo il bat.
Omega
Newsgroup: it.comp.lang.delphi
Titolo: procedura per cancellazione definitiva file

Ciao a tutti,
mi è balenata l'idea di scrivere una procedura che permetta di 
cancellare le tracce dei file in modo definitivo come fà per esempio
file shredder.
Dovrebbe essere sufficente aprire il file in binario scorrerlo e 
scriverci sopra altri dati.
Che ne pensate ? per caso esiste qualcosa da inserire già pronto ?
La cancellazione definitiva di un file prevede l'uso delle tecniche
di wiping. Che ne dite invece di effettuare una formattazione 
condizionata su un unico file o cartella ? in effetti è un pò la stessa
cosa hummm...
Ora googhelizzo un pò, nel frattempo benvenute info naturalmente.
Omega

 scriverci sopra altri dati.
La "formattazione condizionata" di cui parli non credo si possa fare,
aprire un file e riscriverlo (una o piů volte) č un'operazione abbastanza
banale.
Considera comunque che non esista una cancellazione _realmente_
definitiva: esistono apparecchiature in grado di ricostruire il contenuto
di un disco, anche dopo molte formattazioni.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 di un disco, anche dopo molte formattazioni.
le famose tracce di magnetizzazione. Su Eraser c'è l'opzione più sicura 
(paranoica) in assoluto, la "Gutmann" dove il file viene riscritto 35 
volte!
http://www.usenix.org/publications/library/proceedings/sec96/full_papers/gu
tmann/
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

 
Ok in ogni caso non avevo la pretesa di rendere impossibile il recupero 
dei dati. Una cosa a cui non sò ancora dare una risposta è del perchè o 
come sia possibile che, dopo una prima sovrascrittura sia ancora 
possibile recuperare i dati. In fondo il disco non ha degli strati 
multipli dove la traccia viene scritta in superfice o in 
profondità....oppure no !
Cmq se sono necessarie ben 35 sovrascritture porca miseria quanto tempo 
ci vuole per cancellare 50 Gb di dati ??? (non rispondete lo sò).
Bene da quanto ho capito basta fare un rewrite per ottenere il risultato 
voluto.
Omega

 profondità....oppure no !
se avessi dato un'occhiatina all'articolo, avresti scoperto che esistono 
tecniche piuttosto raffinate di data recovery: Magnetic force microscopy 
(MFM), Magnetic force scanning tunneling microscopy (STM). E tecniche 
altrettanto raffinate di "sanitizzazione dei media". Roba da FBI e cartello 
di Medelin...


 
In effetti ho risposto precipitosamente su mie supposizioni e di questo 
chiedo scusa. Ho letto subito dopo l'articolo e mi rendo conto che una 
cancellazione semplice è sufficiente per noi poveri mortali, mentre per 
chi dispone di super tecnologie di recovery forse bisognerebbe 
disintegrare il disco con il faser di star trek.
Grazie di tutto in ogni caso ho visto la luce.
Omega