|
Poslao: 20 Nov 2006 09:12
|
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.
|
|
|
Poslao: 20 Nov 2006 09:34
|
offline
- bobby
- Administrator
- Pridružio: 04 Sep 2003
- Poruke: 24135
- Gde živiš: Wien
|
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.
|
|
|
|
|
|
|
Poslao: 20 Nov 2006 09:36
|
offline
- Strog
- 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:
[Link mogu videti samo ulogovani korisnici]
[Link mogu videti samo ulogovani korisnici]
|
|
|
|
|
|
|
Poslao: 20 Nov 2006 09:37
|
offline
- bobby
- Administrator
- Pridružio: 04 Sep 2003
- Poruke: 24135
- Gde živiš: Wien
|
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.
|
|
|
|
|
|
|
Poslao: 20 Nov 2006 10:15
|
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.
|
|
|
|
|
|
|
Poslao: 20 Nov 2006 14:02
|
offline
- beli0135
- Executor
- 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.
|
|
|
|
|
|
|
Poslao: 01 Dec 2006 14:56
|
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;
|
|
|
|
|
|
|
Poslao: 01 Dec 2006 16:43
|
offline
- beli0135
- Executor
- 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.
|
|
|
|
|
|
