Forum: Netzwerke
Delphi
by hsbc,
28. Jul 2006
Mein Fortschrittsbalken funktioniert nun auch beim Upload !!! :firejump:
Aber nicht zu früh freuen - es ist immer noch ein Provisorim. Der Fehler liegt in der Pufferung beim Senden. Hier wird das DoWork nicht aufgerufen. Ich habe mir bis jetzt einfach so geholfen, dass ich den Upload ohne Pufferung durchführe. Hierzu habe ich den QuellCode folgendermassen geändert:
Änderung im...
Forum: Netzwerke
Delphi
by hsbc,
28. Jul 2006
Hallo allerseits,
Ich habe in meiner Application im OnCreate Ereignis gleich folgendes gesetzt:
IdFTP1.IOHandler.Intercept := IdLogEvent1.Intercept;
IdFTP1.IOHandler.OnWork := IdFTP1.OnWork;
IdFTP1.IOHandler.OnWorkBegin := IdFTP1.OnWorkBegin;
IdFTP1.IOHandler.OnWorkEnd := IdFTP1.OnWorkEnd;
IdFTP1.IOHandler.OnStatus := IdFTP1.OnStatus;
Forum: Netzwerke
Delphi
by hsbc,
28. Jul 2006
@Meflin
Ich bin mir deswegen sicher, weil ich probeweise in meine OnWork-Behandlungsroutine ein ShowMessage eingebaut habe und diese wird nur beim Download und nicht beim Upload angezeigt.
Du brauchst mir nur zu sagen, welche Code-Teile ich dir noch schicken soll. Aber mehr relevante Teile gibt es dazu nicht.
Forum: Netzwerke
Delphi
by hsbc,
27. Jul 2006
@DGL-luke
Was bedeutet Getter/Setter ???
Man müsste halt wissen, wo im Quellcode der Aufruf von OnWork stattfindet, bzw. ob dieser überhaupt stattfindet.
mfg
Herbert
Forum: Netzwerke
Delphi
by hsbc,
27. Jul 2006
Hallo Luckie,
hier die 3 Routinen:
procedure TF_Test.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
Application.ProcessMessages;
ProgressBar.Position := AWorkCount;
ProgressBar.Update;
Forum: Netzwerke
Delphi
by hsbc,
26. Jul 2006
Einen Teilerfolg kann ich bereits berichten:
Nachdem ich folgendes eingestellt habe:
IdFTP.IOHandler.SendBufferSize := 1024;
IDFTP.IOHandler.RecvBufferSize := 1024;
kann ich jetzt den Download in der ProgressBar mitverfolgen.