Konverzija nekog formata u TIFF ?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Radim neki program i sada mi se javlja potreba da recimo neki format, recimo .PNG konvertujem u .TIFF.
Jednostavna promjena ekstenzije ne pali.
Ja pozovem recimo, mspaint.exe i uvezem .PNG u njega i onda ga snimim kao .TIFF i to rjesava problem.

E sada, sta meni treba?

Treba mi kako da snimim iz mspaint.exe sliku kao .TIFF, naravno iz programa?

Sliku uvezem pomocu funkcije :

ShellExecute(application.Handle,'open',pchar('C:\WINDOWS\system32\mspaint.exe'),'C:\WINDOWS\system32\map.png',nil,SW_SHOW);

i sada je trebam snimiti kao .TIFF na neku lokacju.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Skroluj do zadnje cetvrtine sledece stranice:
[Link mogu videti samo ulogovani korisnici]

Imas tu BMP2TIFF. Pretpostavljam da ti nije problem da konvertujes PNG u BMP, pa posle uz pomoc ovoga u TIFF.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pogledaj i ove linkove:

[Link mogu videti samo ulogovani korisnici]

[Link mogu videti samo ulogovani korisnici]

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ukoliko preferiras spoljasnje programe za konverziju, pogledaj Image Magik:
[Link mogu videti samo ulogovani korisnici]

To je paket konzolnih programa za obradu i konverziju slika, i ima i verzija za Windows.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

OK, trebalo bi da nesto ispadne od ovoga.
Testiram nesto 100 puta, i kada trebam da ga isporucim, onda odaberem opciju koju nikada nisam testirao i naravno ona ne radi.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Aman!
Zoves eksterni program da bi uradio nesto sto bi u stvari ti trebao da isprogramiras.
Mislim da na torry.net -u imas dosta biblioteka za to.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Evo kako sam to rjesio, ako nekome, nekada bude trebalo !

1. procedure TOtvoriDok.Button2Click(Sender: TObject);
2. var doc:string;
3. var kraj:boolean;
4.     hwnd, hins:Thandle;
5.     SEInfo: TShellExecuteInfo;
6.     ExitCode: DWORD;
7.     ExecuteFile, ParamString, StartInString, st: string;
8.     tempdir:string;
9.     A : Array[0..100] of Char;
10.     doc2:string;
11.     default_convert : string;
12.     tip, pozicija : integer;
13. begin
14.   GetTempPath(100,@A);
15.   tempdir:=A;
16.   pozicija := pos('.', document);
17.   st := copy(document, pozicija, length(document)-pozicija+1);
18.   tip := 1;
19.  // doc := document;
20.   doc := 'tempfile'+PROTOKOL_DOKUMENTI_ID.AsString;
21. { case tip of
22.    1 : doc:=doc+'.png';
23.   else
24.     MessageDlg('Nepoznat format', mtError, [mbOK], 0);
25.     exit;
26.   end;  }
27.   doc:=doc+st;
28.   doc2:=tempdir+'tempscan2.tif';
29.  
30.   ExecuteFile:='C:\Projekt\Tis\Aplikacije\nconvert';
31.   default_convert:=' -quiet -out tiff -c 6 ';
32.  
33.   FillChar(SEInfo, SizeOf(SEInfo), 0);
34.   SEInfo.cbSize := SizeOf(TShellExecuteInfo);
35.   Application.ProcessMessages;
36.   with SEInfo do begin
37.     fMask := SEE_MASK_NOCLOSEPROCESS;
38.     Wnd := Application.Handle;
39.     lpFile := PChar(ExecuteFile);
40.     lpParameters := PChar('-o '+doc2+default_convert+doc);
41.     lpDirectory := PChar(tempdir);
42.     nShow := SW_Hide;
43.   end;
44.  
45.    if ShellExecuteEx(@SEInfo) then begin
46.     repeat
47.       Application.ProcessMessages;
48.       GetExitCodeProcess(SEInfo.hProcess, ExitCode);
49.       sleep(10);
50.     until (ExitCode <> STILL_ACTIVE) or (application.Terminated);
51.  
52.  
53.   end else begin
54.     ShowMessage('Greska u konvertovanju dokumenta !');
55.   end;
56.  
57.  
58.  
59.  //   DeleteFile(doc2);
60.  
61.  
62.  
63.  
64. end;

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Odlican primer kako ne treba raditi

ceo Workforce oko dobijanja direktorijuma i egzekucije externog programa moze da se napise u tacno 3 linije.