Konverzija nekog formata u TIFF ?

Konverzija nekog formata u TIFF ?

offline
  • Pridružio: 03 Nov 2006
  • Poruke: 59

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.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

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.



offline
  • Strog  Male
  • Stručni saradnik
    Web programiranje
  • Bojan Kopanja
  • Web & Mobile developer @ ZeusSoftware
  • Pridružio: 26 Jul 2003
  • Poruke: 2597
  • Gde živiš: Stara Pazova

Pogledaj i ove linkove:

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

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

offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

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.

offline
  • Pridružio: 03 Nov 2006
  • Poruke: 59

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.

offline
  • Emil Beli
  • Pridružio: 03 Jan 2005
  • Poruke: 2990
  • Gde živiš: Beograd

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.

offline
  • Pridružio: 03 Nov 2006
  • Poruke: 59

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;

offline
  • Emil Beli
  • Pridružio: 03 Jan 2005
  • Poruke: 2990
  • Gde živiš: Beograd

Odlican primer kako ne treba raditi

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

Ko je trenutno na forumu
 

Ukupno su 632 korisnika na forumu :: 22 registrovanih, 3 sakrivenih i 607 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., Apok, Deneb, djboj, dragoljub11987, Drug pukovnik, FOX, indja, Insan, kybonacci, L A Z A R, MB120mm, mcgunner, Milan A. Nikolic, raso76, repac, royst33, Sirius, sovanova95, Trpe Grozni, voja64, zola92