Forum: Object-Pascal / Delphi-Language
Delphi
by KodeZwerg,
17. Okt 2018
procedure TPDFCreatorFrame.ImageToPDF;
var job : IPrintjob;
jobinfo : IPrintJobInfo;
PDFQueue : TQueue;
LOutput : IOutputFiles;
begin
PDFQueue := TQueue.Create(Self);
try
Showmessage('procedure TPDFCreatorFrame.ImageToPDF: Der Wert von FFilename ist: '+' "'+ FFilename + '" ');
// FFilename ist: 'C:\PDFOfficerAppdata\PdfOfficerData\ScannedPic.jpeg';
Forum: Object-Pascal / Delphi-Language
Delphi
by KodeZwerg,
17. Okt 2018
ShellExecute method
Run a script or application in the Windows Shell.
Syntax
.ShellExecute "application", "parameters", "dir", "verb", window
das ist was das script macht, das ist was wir da mit shellexecuteex auch machen.
(um ganz genau zu seien musst du lpDirectory auf := '' setzen)
also das script funktioniert und erzeugt tatsächlich eine datei, ja?
Forum: Object-Pascal / Delphi-Language
Delphi
by KodeZwerg,
17. Okt 2018
moin, gibts zufällig "PDFQueue" <<-- darüber mehr informationen?
zeige mal bitte was "TQueue" ist.
Forum: Object-Pascal / Delphi-Language
Delphi
by KodeZwerg,
15. Okt 2018
Freut mich das es klappt, nicht vergessen, habs oben nicht erwähnt, fehlercode prüfen/auswerten.
$FFFFFFFF = totaler fehler
nun kommt es darauf an,
man hat entweder den init-rückgabe wert der ShellExecuteEx oder einen vom System GetLastError auszuwerten.
shau am besten mal in doku nach dessen rückgabewerte, meine sind unbrauchbar/veraltet.
(ich kann dir mit dem creator nicht helfen, habe das...
Forum: Object-Pascal / Delphi-Language
Delphi
by KodeZwerg,
15. Okt 2018
uses ShellApi;
...
function ExecuteShell(const Executable, Commands: String; const ShowConsole: Boolean): Cardinal;
var
ProcessInfo: TShellExecuteInfo;
begin
Result := Cardinal($FFFFFFFF);
FillChar(ProcessInfo, SizeOf(TShellExecuteInfo), #0);