Hallo
Ich habe vor kurzem eine Appl. gemacht welche ein rtf-File generiert und dann via Aufruf dieses von Wordpad ausdrucken lässt. Das hat alles funktionert solange es ein Normales Programm war.
Nun habe es als CGI (CGI Expert) im Einsatz und da geht nun den Aufruf von
Wordpad und drucken nicht mehr.
Starte ich den Debugger(F9) und rufe dann den Link im Webbrowser auf um das Programm laufen zu lassen, funktioneriert es. Ohne Debugger nicht. Wo kann der Fehler liegen.
<pre>
sExe:='C:\Program Files\Windows NT\Accessories\wordpad.exe';
FillChar(aTSI, SizeOf(aTSI), #0);
FillChar(aTPI, SizeOf(aTPI), #0);
aTSI.CB := SizeOf(aTSI);
if CreateProcess(nil, PChar(sExe+' '+fn +' /p'), nil, nil, False,
NORMAL_PRIORITY_CLASS,
nil, nil, aTSI, aTPI)
then begin
{ Warten bis Prcess beendet}
WaitForSingleObject(ATPI.hProcess, INFINITE);
end
else begin
errorCode:=GetLastError; //Fehlermeldung wohin?
end;
CloseHandle(ATPI.hProcess);
</pre>
Ich weiss nicht wo ich den Bug suchen soll.
Gruss<br>
Onail
Ich habe vor kurzem eine Appl. gemacht welche ein rtf-File generiert und dann via Aufruf dieses von Wordpad ausdrucken lässt. Das hat alles funktionert solange es ein Normales Programm war.
Nun habe es als CGI (CGI Expert) im Einsatz und da geht nun den Aufruf von
Wordpad und drucken nicht mehr.
Starte ich den Debugger(F9) und rufe dann den Link im Webbrowser auf um das Programm laufen zu lassen, funktioneriert es. Ohne Debugger nicht. Wo kann der Fehler liegen.
<pre>
sExe:='C:\Program Files\Windows NT\Accessories\wordpad.exe';
FillChar(aTSI, SizeOf(aTSI), #0);
FillChar(aTPI, SizeOf(aTPI), #0);
aTSI.CB := SizeOf(aTSI);
if CreateProcess(nil, PChar(sExe+' '+fn +' /p'), nil, nil, False,
NORMAL_PRIORITY_CLASS,
nil, nil, aTSI, aTPI)
then begin
{ Warten bis Prcess beendet}
WaitForSingleObject(ATPI.hProcess, INFINITE);
end
else begin
errorCode:=GetLastError; //Fehlermeldung wohin?
end;
CloseHandle(ATPI.hProcess);
</pre>
Ich weiss nicht wo ich den Bug suchen soll.
Gruss<br>
Onail