Hallo Community,
es geht um folgendes: Ich möchte eine Datei per
FTP auf einen Server laden. Der einzige Lösungsansatz, welchen ich bisher zum Funktionieren überzeugen konnte, ist die
Indy-Variante. Da ich leider nur eine Turbo-Delphi Version habe, bleibt es mir verwehrt die Komponenten einfach auf der Form zu platzieren.
So habe ich alles schön erstellt, nur bei der Zuweisung der Prozeduren für eine Fortschrittsanzeige scheitere ich kläglich, es gibt immer Fehlermeldungen mit Parametern, auch im Forum habe ich bislang noch keine Lösung gefunden, um non-VLC erstellten
Indy-Komponenten Prozeduren zuzuweisen.
Wo liegt hier der Fehler? Der
FTP-Upload an sich funktioniert, nur möchte auch gerne sehen was voran geht...
Gruß Markus
Delphi-Quellcode:
var
indy_FTPClient: TIdFTP;
procedure Tfo_uploader.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position := AWorkCount;
Application.ProcessMessages;
end;
procedure Tfo_uploader.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
ProgressBar1.Max := AWorkCountMax;
end;
procedure Tfo_uploader.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar1.Position := 0;
end;
procedure Tfo_uploader.FormCreate(Sender: TObject);
begin
indy_FTPClient := TIdFTP.Create;
indy_FTPClient.OnStatus := IdFTP1Status;
indy_FTPClient.OnWorkBegin := IdFTP1WorkBegin(indy_FTPClient, wmRead, 100); // es geht um diese Parameter
indy_FTPClient.OnWorkEnd := IdFTP1WorkEnd;
indy_FTPClient.OnWork := IdFTP1Work;
end;