SCP-Komponente gesucht

[ASM]

Zitat von zeras:

Würden denn da nicht die Virenscanner anschlagen?

Bei mir nicht. Ich verwende GDATA Internet Security 2012.

Verwendet habe ich den Code übrigens unter WinXP; ob auch alles unter Win7 ebenso glatt läuft, kann ich gerade nicht überprüfen.

Und hier noch eine leicht verbesserte Funktion Killprocess(), die den Fall berücksichtigt, dass die vom Programm gestartete ExeResource bereits extern beendet worden sein sollte. Das kann durch Abfrage des Exitcodes per GetExitCodeProcess() geklärt werden:

Delphi-Quellcode:

function KillProcess(ProcInfo: TProcessInformation): boolean;
var
  process_handle: integer;
  errorCode: cardinal;
begin
  process_handle := openprocess(PROCESS_ALL_ACCESS, true, ProcInfo.dwProcessId);
  result := terminateprocess(process_handle, 0);
  if not result then
  begin
    // prüfen, was los ist
    GetExitCodeProcess(process_handle, Errorcode);
    // falls der Process bereits extern beendet worden ist,
    // dann ist ErrorCode = 0, ansonsten ErrorCode <> 0
    result := ErrorCode = 0;
  end;
  if result then
  begin
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
end;

[Jumpy]

Hallo zusammen und erstmal Danke für die guten Tipps.

Hauptmotivation für eine neue Umsetzung an dieser Stelle war, das pscp.exe auch einen Rückgabewert liefert, aus dem ersichtlich wird, ob der Dateitransfer erfolgreich verlaufen ist. Dieser wurde bisher aber nicht ausgewertet. Darum sollte das im Delphi-Programm selber umgesetzt werden.
Da das aber möglichst schon vorgestern fertig sein (Kunde) und nix kosten (Chefe) soll, konnte ich das mangels passender Komponenten nicht umsetzten. Und SCP selber nachzubauen (z.B. durch Studium von WinSCP, siehe Vorschlag von wicht) würde zu lange dauern, da ich mich dazu viel zu sehr einarbeiten müsste.
Iwo Asnet hat's daher richtig zusammengefasst, pscp.exe wird trotzdem genutzt, aber so, dass der Rückgabewert ausgewertet werden kann, denn darum ging es ja primär. Hilfreich war dazu die hier vorgestellte Methode:
Capturing console output with Delphi 2010/XE

Damit hab ich es erstmal ans laufen gebracht, allerdings so, dass pscp.exe nun mit dem eigentlichen Programm im selben Verzeichnis stehen muss. Das werde ich dem Kunden denke ich verkaufen können, da es ja primär um die Auswertung der Antwort von pscp.exe ging und das ist jetzt gewährleistet.

Nevertheless: Die pscp.exe als Resource einzubinden und dann auch noch mit dem Vorschlag von ASM gekoppelt ist natürlich sehr, sehr cool und wurde von mir direkt im Geiste abgespeichert, wer weiß wann man das mal brauchen kann.
Hier für meinen konkreten Fall muss ich mal gucken, ob ich das mit der "Capturing Console Output"-Geschichte koppeln kann.