riccardo_2193 (Normal User)
Rookie
 
Messaggi: 29
Iscritto: 20/11/2009
|
fammi sapere  comunque lasciando il programma così com'è a me funziona. Ricordo solo l'uso del freepascal. Tu in poche parole dovresti andare a modificare la stringa
Codice sorgente - presumibilmente Plain Text |
AProcess.CommandLine := 'copy C:\immagine.jpg C:\Cartella\immagine.jpg';
|
inserendo un comando qualsiasi che avresti usato su dos. Quindi nel tuo caso devi appunto scrivere un comando da dos che permetta di copiare un file da un posto ad un altro (ah, s'intende sia dos di windows che terminali di mac e linux)
Qui ti riporto anche il link da dove ho tratto l'esempio (modificandolo al caso tuo). Ce ne sono altri, se ti possono essere utili. http://wiki.freepascal.org/Executing_External_Programs/it
Tu fammi sapere come va
Ultima modifica effettuata da riccardo_2193 il 16/12/2009 alle 7:03 |
|
|
riccardo_2193 (Normal User)
Rookie
Messaggi: 29
Iscritto: 20/11/2009
|
ah, e fossi in te (consiglio mio), mi adatterei al freepascal (primo, nel caso tu usassi ancora tp, magari scaricando dev-pascal, a mio parere ottimo) e lascerei perdere la libreria dos (secondo)
|
|
|
riccardo_2193 (Normal User)
Rookie
Messaggi: 29
Iscritto: 20/11/2009
|
Codice sorgente - presumibilmente Pascal |
uses dos; ... swapvectors; Exec("c:\windows\....command.exe","COPY c:\immagine.jpg c:\cartella\immagine.jpg"); swapvectors; ...
|
una cosa così con la libreria dos?? tu prova
comunque:
Exec(Path, CmdLine : String) ------> Esegue il programma segnalato in Path, passando come parametri quelli presenti in CmdLine.
(scusate i tre post di fila)
Ultima modifica effettuata da riccardo_2193 il 16/12/2009 alle 7:06 |
|
|
gm.jimmy (Normal User)
Newbie
Messaggi: 9
Iscritto: 13/12/2009
|
io ho scaricato il compilatore dev-pascal, e mi sembra di averlo scaricato da questo sito...
va bene come compilatore?
|
|
|
gm.jimmy (Normal User)
Newbie
Messaggi: 9
Iscritto: 13/12/2009
|
Codice sorgente - presumibilmente Pascal |
uses dos; ... swapvectors; Exec("c:\windows\....command.exe","COPY c:\immagine.jpg c:\cartella\immagine.jpg"); swapvectors; ...
|
comunque:
Exec(Path, CmdLine : String) ------> Esegue il programma segnalato in Path, passando come parametri quelli presenti in CmdLine.
|
ho provato, ma a me così facendo mi apre solo il cmd (cioè il programma segnalato in path) e non esegue il comando che segnalo in cmdline.... 
che sia colpa di Dev-Pascal?
tu che compilatore usi? |
|
|
riccardo_2193 (Normal User)
Rookie
Messaggi: 29
Iscritto: 20/11/2009
|
ma guarda io ti consiglierei, dato che il dev-pascal si basa su free pascal, di usare il codice che ti ho dato precedentemente.
Codice sorgente - presumibilmente Delphi |
program launchprogram; uses Classes, SysUtils, Process; var AProcess: TProcess; begin AProcess := TProcess.Create(nil); AProcess.CommandLine := 'copy C:\immagine.jpg C:\Cartella\immagine.jpg'; AProcess.Options := AProcess.Options + [poWaitOnExit]; AProcess.Execute; AProcess.Free; end.
|
alla fine basta che ricordi le tre librerie che devi dichiarare, dichiari la variabile di tipo TProcess, crei la variabile con AProcess := TProcess.Create(nil) (una specie di assign, che si usa per i file txt), digiti il comando da eseguire, la riga successiva serve a far attendere il tuo programma che gli effetti del comando siano portati a termine, esegui ed è finita li... credo ti convenga usare assolutamente questo metodo, anche perché il freepascal è multipiattaforma a differenza del turbo pascal (e della libreria dos, presente solo in windows).
qui trovi la pagina ufficiale dove spiegano tutto... è un ottimo sito!!
http://wiki.freepascal.org/Executing_External_Programs/it# ...
Ultima modifica effettuata da riccardo_2193 il 17/12/2009 alle 18:58 |
|
|
gm.jimmy (Normal User)
Newbie
Messaggi: 9
Iscritto: 13/12/2009
|
ho copiato il codice uguale uguale e il compilatore mi trova ben 5 errori, non riconoscendo la maggior parte dei comandi...proverò a scaricare free-pascal e utilizzarlo al posto del dev..
|
|
|
gm.jimmy (Normal User)
Newbie
Messaggi: 9
Iscritto: 13/12/2009
|
ho scaricato il free pascal ma il codice che mi hai postato non funziona lo stesso..si apre solo per qualche secondo la finestra del dos, ma non viene eseguito l'ordine di copiare l'immagine...
mah...
|
|
|
