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:
http://www.efg2.com/Lab/Library/Delphi/Graphics/FileFormatsAndConversion.htm

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:

http://www.herdsoft.com/catalog/davinci.html

http://fabrice.foray.free.fr/fabpaint.zip

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

Ukoliko preferiras spoljasnje programe za konverziju, pogledaj Image Magik:
http://www.imagemagick.org/script/index.php

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 !

procedure TOtvoriDok.Button2Click(Sender: TObject); var doc:string; var kraj:boolean;     hwnd, hins:Thandle;     SEInfo: TShellExecuteInfo;     ExitCode: DWORD;     ExecuteFile, ParamString, StartInString, st: string;     tempdir:string;     A : Array[0..100] of Char;     doc2:string;     default_convert : string;     tip, pozicija : integer; begin   GetTempPath(100,@A);   tempdir:=A;   pozicija := pos('.', document);   st := copy(document, pozicija, length(document)-pozicija+1);   tip := 1;  // doc := document;   doc := 'tempfile'+PROTOKOL_DOKUMENTI_ID.AsString; { case tip of    1 : doc:=doc+'.png';   else     MessageDlg('Nepoznat format', mtError, [mbOK], 0);     exit;   end;  }   doc:=doc+st;   doc2:=tempdir+'tempscan2.tif';   ExecuteFile:='C:\Projekt\Tis\Aplikacije\nconvert';   default_convert:=' -quiet -out tiff -c 6 ';   FillChar(SEInfo, SizeOf(SEInfo), 0);   SEInfo.cbSize := SizeOf(TShellExecuteInfo);   Application.ProcessMessages;   with SEInfo do begin     fMask := SEE_MASK_NOCLOSEPROCESS;     Wnd := Application.Handle;     lpFile := PChar(ExecuteFile);     lpParameters := PChar('-o '+doc2+default_convert+doc);     lpDirectory := PChar(tempdir);     nShow := SW_Hide;   end;    if ShellExecuteEx(@SEInfo) then begin     repeat       Application.ProcessMessages;       GetExitCodeProcess(SEInfo.hProcess, ExitCode);       sleep(10);     until (ExitCode <> STILL_ACTIVE) or (application.Terminated);   end else begin     ShowMessage('Greska u konvertovanju dokumenta !');   end;  //   DeleteFile(doc2); 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.