(ftp) datei hochladen mitt fortschrittanzeige??

[100nF]

haloo zusammen

ich will eine datei auf den server laden. so jeden 2ten tag oder so. das ist auch kein problem, aber das programm friert immer ein beim hochladen. der antifreeze nützt auch nichts.
ich will nämlich eine fortschrittanzeige, sonst weiss man nicht ob es überhaupt hochlädt, oder ob das programm abgestürzt ist, und wie lange es noch etwa dauert.

ich benutze idFTP und lade die dateiem mit put('datei', 'datei') hoch


ich wäre froh wenn ihr mir helfen könnt

[Ultimator]

Im OnWork Event gibts nen Parameter AWorkCount, schau dir den mal an

[Luckie]

Desweiteren gibt es die Suche, du bist nicht der erste, der das Frag und dann gibt es zu den Indys noch die Demos.

[100nF]

Zitat:

Im OnWork Event gibts nen Parameter AWorkCount, schau dir den mal an

tut mir leid, aber damit konnte ich nicht viel anfangen :?

[100nF]

Zitat:

Zitat von Luckie

Desweiteren gibt es die Suche, du bist nicht der erste, der das Frag und dann gibt es zu den Indys noch die Demos.

das weiss ich, aber es gab niemand, der eine fortschrittanzeige wollte

[Luckie]

Zitat:

Zitat von urbanbruhin

das weiss ich, aber es gab niemand, der eine fortschrittanzeige wollte

Du sollst nicht lügen. :warn:
indy fortschrittsanzeige.

[100nF]

oh, entschuldige, die habe ich irgendwie übersehen( aber gesucht habe ich!!) :oops:

*peinlich*

werd mal reinschauen...

[Dj_Base]

Hi!
Benutzt doch die NMFTP-Komponente aus dem Register FastNet.
da hast du schöne Ereignisse wie OnPacketRecvd und OnPacketSent und Eigenschaften wie BytesRecvd und BytesSent; damit kanst du super einen Vortschrittsbalken programmieren.
Ein kleines Beispiel mit einem Label:
(Es sollte kein großes Problem sein, dass für eine TStatusBar "umzuwurschteln" ;) )

Delphi-Quellcode:

procedure TForm1.NMFTP1PacketRecvd(Sender: TObject);
begin
  Label1.Caption := IntToStr(NMFTP1.BytesRecvd) + ' Bytes von ' + IntToStr(NMFTP1.BytesTotal) 
  + ' Bytes';
end;

Grüße, Dj_Base

[100nF]

also das register FastNet hab ich nicht (delphi 7)

[Luckie]

Ab D7 sind die Indys dabei. Die haben aber entsprechende Ereignisse.