Exe Datei von FTP herunterladen = Broken ???

[MaToBe]

Delphi-Quellcode:

onAfterGet(ShellExecute(Nil, 'open', PChar('D:\Sonstiges\Mhl.exe'), nil, PChar('D:\Sonstiges\'), SW_SHOWNORMAL));

wenn das so geht dann kommt aber Incompatible Typen TObject und Cardinal.

[mkinzler]

OnAfterGet ist ein Eventbehandlungsroutine:
Erweitere TfrmMain umd die Methode

Delphi-Quellcode:

procedure AfterGet(ASender: TObject; AStream: TStream);

Weise diese der EventProperty zu

Delphi-Quellcode:

ftp.onAfterGet := AfterGet;

in ihr rufe dann die Datei auf

Delphi-Quellcode:

procedure TfrmMain.AfterGet(ASender: TObject; AStream: TStream)
begin
    ShellExecute(Application.Handle, 'open', PChar('D:\Sonstiges\Mhl.exe'), nil, nil, SW_SHOWNORMAL);
end;

[MaToBe]

klappt leider immmer noch nicht. es gibt keine fehlermeldung oder ähnliches, aber das Programm wird nicht gestartet. Manuell kann ich es starten.

Hat vllt noch jemand eine Idee?

[mkinzler]

Setzte mal einen Breakpoint in die Methode

[Luckie]

Was sagt der Rückgabewert von Shellexecute?