Pascal - Exec per file jpg o altri

Forum - Pascal - Exec per file jpg o altri

mirco95 (Normal User)
Newbie

Messaggi: 13
Iscritto: 27/01/2012

Postato alle 13:55
Domenica, 11/03/2012

Ciao oggi ho studiato il comando exec e finche voglio avviare file eseguibili(.exe) non ho nessuno problema.

Adesso ho due domande:

Se il file eseguibile non è un file che tutti i pc hanno, cosa devo fare per farlo avviare anche in altri pc. Mi spiego se il file .exe l'ho creato io e quindi un secondo pc non ha questo file, cosa devo fare ? Devo aggiungerlo io?

Seconda domanda:
Per avviare file non .exe , quindi ad esempio file jpg che comando devo fare? Potreste farmi un esempio.
Grazie mille

Phi (Member)
Expert

Messaggi: 241
Iscritto: 30/12/2009

Postato alle 16:08
Domenica, 11/03/2012

Testo quotato

Mi spiego se il file .exe l'ho creato io e quindi un secondo pc non ha questo file, cosa devo fare ? Devo aggiungerlo io?

Esatto. La procedura exec ti permette di avviare l'esecuzione di un eseguibile.
Il file eseguito può deve, ovviamente, essere un file accessibile del computer (quindi, in pratica deve essere presente sul disco del computer, e su sistemi Linux devi avere anche i permessi di esecuzione).
Quindi se vuoi distribuire un programma in internet e vuoi fare eseguire da questo un secondo programma devi per forza fornire questo secondo eseguibile assieme al primo e devi passare alla procedura il suo percorso come primo argomento.

Testo quotato

Per avviare file non .exe , quindi ad esempio file jpg che comando devo fare? Potreste farmi un esempio.

Qui non ho capito bene che intendi.

Se stai chiedendo "posso eseguire, come processo file non .exe" la risposta è sì, basta che il file che tenti di avviare sia un file che contenga un processo.
Esempio: Se io creassi un file mioprogramma.exe e lo rinominassi con nome mioprogramma.png potrei chiamare

Codice sorgente - presumibilmente Plain Text

exec('mioprogramma.png', '');

e ciò avviere il mio programma.
Pensa che windows prevede anche eseguibili che non hanno esensione .exe, ad esempio .com o .msi o anche altri.

Se invece mi stai chiedendo come fare a aprire un file ".jpg", cioè come "simulare un doppio clic sopra", allora il discorso è diverso.
Puoi "simulare un Apri" utilizzando le API dei vari sistemi operativi.

mirco95 (Normal User)
Newbie

Messaggi: 13
Iscritto: 27/01/2012

Postato alle 16:36
Domenica, 11/03/2012

Ciao grazie mille per la risposta.
No io mi riferivo se era possibile far partire un'immagine o qualcosa che non sia eseguibile. In questo programma che sto creato dovrei far partire una foto in jpg.. Come potrei fare..
Grazie ancora.

Edit
Ho trovato il modo *_*. spiego a tutti coloro che non sanno il modo. Il comando per una immagine è il seguente

Exec('C:\Windows\system32\mspaint.exe','C:\Coldblur.jpg');

Quindi se è un immagine dobbiamo prima mettere un programma che permette di visualizzare l'immagine.. potremmo usare anche un altro Visualizzatore . E nel secondo codice mettere invece l'indirizzo del file immagine. Stessa cosa ad esempio per un Mp3. Mettiamo cosi:

Codice sorgente - presumibilmente Plain Text

Exec('C:\%ProgramFiles(x86)%\Windows Media Player\wmplayer.exe','C:\musica.mp3');

Spero di essere stato chiaro

Ultima modifica effettuata da mirco95 il 11/03/2012 alle 16:48

Phi (Member)
Expert

Messaggi: 241
Iscritto: 30/12/2009

Postato alle 19:59
Lunedì, 12/03/2012

Se vuoi c'è il comando

Codice sorgente - presumibilmente Pascal

ShellExecute(Handledelllafinestra, 'open','immagine.png',nil,nil, SW_SHOWNORMAL);

ShellExecute in questo caso(dato che il secondo parametro è 'open') apri il file immagine.png con la applicazione predefinita di sistema.
La descrizione dettagliata la trovi qui : http://msdn.microsoft.com/en-us/library/windows/desktop/bb ...
E' inclusa nella unit shellapi e forse anche nella unit windows.
Non sto usando windows e non ho voglia di riavviare per controllare.

Se vuoi usare exec però potresti anche non usare MS Paint ma il visualizzatore di immagini di windows.
Il comando dovrebbe essere

Codice sorgente - presumibilmente Plain Text

%windir%\system32\rundll32.exe c:\windows\system32\shimgvw.dll,ImageView_Fullscreen Nome_immagine

mirco95 (Normal User)
Newbie

Messaggi: 13
Iscritto: 27/01/2012

Postato alle 12:30
Venerdì, 16/03/2012

Ciao e quest'ultima libreria da dove la prendo?Io usao Dev-Pascal e non l'ho . Un altra cosa ... per avere la libreria BMP dove posso trovarla?

Phi (Member)
Expert

Messaggi: 241
Iscritto: 30/12/2009

Postato alle 13:19
Venerdì, 16/03/2012

ShellApi mi pareva fosse una libreria standard del FreePascal Compiler. E dev-pascal dovrebbe essere basato su fpc.
Controlla nella configurazione del compilatore che cerchi le units anche in <directory del compilatore/<versione del compilatore>/units/i386-win32/winunits.
La unit windows invece non dovrebbe darti problema. Mi ricordo di averla usata quando ho provato dev-pascal.

Non so se il pascal standard metta a disposizione delle funzioni per i file bmp. Io le ho trovate. Ad ogni modo puoi usare le API windows che la unit windows ti mette a disposizione.
Provo a scrivere un programmino di esempio.

A te interessa un programma che visualizzi un'immagine ?

Ultima modifica effettuata da Phi il 16/03/2012 alle 13:40

mirco95 (Normal User)
Newbie

Messaggi: 13
Iscritto: 27/01/2012

Postato alle 20:17
Venerdì, 16/03/2012

Ciao io vorrei che l'immagine si visualizza senza nessun'altra cosa. Mi spiego:
Se io la faccio aprire con Paint mi si visualizza questa parte (quarda il file che ho allegato).Quindi a me intresserebbe far visualizzare SOLO l'immagine. Ciao e grazie ancora

mirco95 ha allegato un file: Senza titolo-2 copia.jpg (764649 bytes)
Clicca qui per guardare l'immagine

Phi (Member)
Expert

Messaggi: 241
Iscritto: 30/12/2009

Postato alle 20:27
Venerdì, 16/03/2012

Certo, perché esegui il programma.
Io ti consiglio di creare una tua finestra. Puoi usare la unit suppwingraph di Saladino(la trovia qui sul sito) oppure potresti modificare questo programma:

Codice sorgente - presumibilmente Delphi

program mostrabitmap;
 
uses Windows;
 
const
nomeclasse = 'MostraBmpClass';
nomefile:pchar='< nome della tua immagine >';
 
procedure disegnaimmagine(var dc : hdc; larghezza, altezza : longint);
var
hbmp : hbitmap;
tempdc:hdc;
begin
  hbmp := LoadImage(0, nomefile, IMAGE_BITMAP,0,0, LR_LOADFROMFILE);
  tempdc:=createcompatibledc(0);
  selectobject(tempdc,hbmp);
  BitBlt(dc, 0, 0, larghezza, altezza, tempdc, 0, 0, SRCCOPY);
       //potresti modificare le coordinate qui sopra per centrare l'immagine
  deleteobject(hbmp);
  deletedc(tempdc);
end;
 
function ShowBMPProc(Window: HWnd; AMessage, WP, LP: Longint):Longint; stdcall;
var ps:paintstruct;
    dc : hdc;
    dimensioni:trect;
begin
 ShowBMPProc := 0;
 case AMessage of
  wm_Destroy : begin
   PostQuitMessage(0);
   exit;
  end;
  wm_paint: begin
   dc:=beginpaint(window,@ps);
   GetClientRect(Window,@dimensioni);
   disegnaimmagine(dc,dimensioni.right-dimensioni.left,  dimensioni.bottom-dimensioni.top);
   EndPaint(window,ps);
  end;
  end;
  ShowBMPProc := DefWindowProc(Window, AMessage, WP, LP);
end;
 
function RegistraWndClass: Boolean;
var WindowClass: WndClass;
begin
with windowclass do begin
  Style := cs_hRedraw or cs_vRedraw;
  lpfnWndProc := WndProc(@ShowBMPProc);
  cbClsExtra := 0;
  cbWndExtra := 0;
  hInstance := system.MainInstance;
  hIcon := LoadIcon(0, idi_Application);
  hCursor := LoadCursor(0, idc_Arrow);
  hbrBackground := GetStockObject(black_brush);
  lpszClassName := nomeclasse;
end;
  RegistraWndClass := RegisterClass(WindowClass) <> 0;
end;
 
function CreaFinestra: HWnd;
begin
  CreaFinestra := CreateWindow(nomeclasse, 'Mostra BMP',
         ws_OverlappedWindow, cw_UseDefault, cw_UseDefault,
         200, 150, 0, 0, system.MainInstance, nil);
  if CreaFinestra <> 0 then begin
     ShowWindow(CreaFinestra, CmdShow);
     UpdateWindow(CreaFinestra);
  end;
end;
 
var
AMessage: Msg;
hfinestra: HWnd;
error:boolean;
 
BEGIN
  error:=not(RegistraWndClass);
  if not error then hfinestra := creafinestra;
  error := error or (hfinestra=0);
  if error then messagebox(0,'Si e'' verificato un''errore nella creazione della finestra', '', 0)
  else begin
     while GetMessage(@AMessage, 0, 0, 0) do begin
       TranslateMessage(AMessage);
       DispatchMessage(AMessage);
     end;
  end;
END.

Ma così non è molto semplice.
Il tuo obiettivo sarebbe quello di creare uno splash screen ?

Ultima modifica effettuata da Phi il 16/03/2012 alle 20:35