Beispiel zum Versenden von Dateien mit Indy

[DataCool]

Hi Leute,

auf vielfachen Wunsch habe ich nochmal ein Beispiel zum Versenden von Dateien mit Indy erstellt.

Das Beispiel enthält Client und Server incl. Sourcecode natürlich.

Desweiteren verfügen Client und Server über eine Progressbar die den Übertragungsstatus anzeigt und eine Anzeige der aktuellen Sendegeschwindigkeit.

Würde mich über ein kleines Feeedback freuen :wink:

Gruß Data

[supermuckl]

vielen dank :) ich werde bald ne freeware fileübertragungstool hier zum dl anbieten :>
mit queue und so weiter

thx

[edi-design]

vielen dank, jetzt weiß ich wie ich das mit der progressbar machen kann thx

cu andré

[ATwardz]

Hi,

Endlich mal ein schönes Beispiel! DANKE! :-D
Ich fand heraus das die Splitanzahl bei ca 70 liegen sollte um die beste Geschwindigkeit zu erlangen!
Kann mich auch irren aber Fakt ist(zumindest nach meinen Ergebnissen) das die Paketgrösse mit der Dateigrösse proportional steigen muss, um immer die beste Geschwindigkeit zu erhalten!

Danke nochmals!

@wardz

[ATwardz]

Hab da noch ne Frage!

ich hatte so ein Programm vorher schon ohne SPLIT aber da wurden die Datei(3Mb) innerhalb 1 sek verschickt!
Das programm mit Split braucht über ne Minute und arbeitet mit ner Geschwindigkeit von 20 KB\sek!

Ich will es aber zumindest annähernd so schlnell wie mein altes laufen lass!
Ich habe die vermutung, das die bestätigung vom server an den client für jedes Paket das Problem ist! Der hält sich damit zulange auf!
Wie kann ich das umgehn ohne einen DAtenverlust zu erleiden! :roll:

Danke @wardz

[DataCool]

Hi ATwardz,

wie hast Du den 3 MB pro Sek. verschickt ? Doch wohl nicht übers Internet, wenn doch will ich dieselbe Leitung :mrgreen:

Du hast Deine 3 MB pro Sek. wahrscheinlich erreicht, indem Du die Datei komplett und mit der Verwendung von OpenwriteBuffer und CloseWriteBuffer versendet hast. Was Du dabei vergessen hast ist :

Das bei der Verwendung des WriteBuffers das Ereignis OnWork beim Schreiben in den Buffer schon ausgelöst wird, nicht wenn der Buffer mit CloseBuffer abgeschickt wird.

Gruß Data

[ATwardz]

JA, das ist richtig das ich die ganze Datei verschickt habe!
Erreichen kann man 3 MB/sek auch über das INET aber nur wenn eine Verbindung von Router zu Router aufgebaut wird, habe ich hier im Forum gelernt! :lol:

3 MB in unter 3 Sek

kann es sein, das es vielleicht sinn macht die Datei erst zu splitten und auf der Festplatte abzulegen, dann zu senden un der Server die ablegt bis alle vorhanden sin und dann zusammensetzt, dann wäre eine resumfunktion auch recht einfach und übersichtlich!

Ich weiss das der jetztige Code eigentlich sehr ähnlich arbeitet aber irgendwie muss das doch funksten! :cry:

DAnke

@wardz

[phlux]

Hi DataCool :hi:
Super Beispiel :thumb: hatte vor in der freien Zeit mal son kleines Shareprog zu schreiben ;) da kommt mir dein Bsp ganz recht :)
Nur wenn ich so den Source sehe krieg ichs gruseln :shock: :pale: hast du dir schonmal den Pascal Style Guide angeguckt?? Soll jetzt keine böse kritik sein ;) aber wenn ich Code sehe der mit Tab eingerückt ist schauderts mich gewaltig :?

mfg phlux :hi:

[DataCool]

Hi Phlux,

was hast Du gegen die einrückung mit Tabs ?
Aber Du hast recht mit den Pascal Style Guides habe ich mich noch nicht beschäftigt *g
Hab ich jetzt was lebensnotwendiges verpasst ?

Die neugier hat mich gerade gepackt und ich hab mal kurz bei Borland reingeschaut, zu 90 % halte ich mich sogar dran und die Stelle mit den Tabs hab ich auch nicht gefunden, außerdem ist das eine Einstellung in Delphi selber in wieviel Leerzeichen ein Tab umgesetzt wird.

Gruß Data

[jonny]

Hallo ich habe ein kleines Problem also folgendes.
Wenn ich das Projekt runterlade und ausführe dann funktioniert alles bestens (Ein sehr schönes und gutes Beispiel) wenn ich aber die Projektdateien öffne und neu Compiliere (Delphi 7 Pro) so funktioniert das ganze nicht mehr da ich das Beispiel aber schon in irgendeiner Form verwenden möchte würde ich gerne wissen wo der Fehler ist.