Multi File Transfer
Hi Delphianers
Ich wollte mal was wissen. Wie ich mit den Sockets vom Client an den Server Dateien senden kann weiss ich hab da rumprobiert und geübt ;-) Nun wollte ich mal wissen wie das ist wenn ich vom Client an den Server mehrere Dateien gleichzeitig senden möchte z.b so wie es in nem DL Manager funktioniert mit Listbox, Progressbar u.s.w. Muss ich da beim Client pro datei die versendet wird immer nen Thread starten der dann ein neues Socket zur Laufzeit erzeugt und die entsprechende Datei versendet? Bin da mit Google leider nicht gross fündig geworden oder hab da v.l nach dem falschen Stichwort gesucht. Ich bin auf dem Gebiet totaler Neuling. v.l hat ja jemand ein kleines beispiel oder ne Grafik die das bisschen verständlich erklährt. L.g Tom |
AW: Multi File Transfer
Solange/da clientseitig viele Komponenten nicht multithreadfähig sind, für jeden Thread eine Übertragungskomponente erstellen und parallel übertragen?
|
AW: Multi File Transfer
also ich dachte mir das ich das mit ner unit mache die ca. so ausschaut.
und ich dann immer nen neuen Thred erzteuge der wieder ein Socket erzeugt. Lige ich das so richtig oder falsch?
Delphi-Quellcode:
unit Socket;
interface uses Windows, ScktComp,sysutils ; type TClientSock=class(TObject) Constructor Create; Destructor Destroy; override; private procedure DoConnect(Sender: TObject; Socket: TCustomWinSocket); protected FSocket: TClientSocket; public procedure run; end; var SockAdress : string; SockPort : integer; implementation Constructor TClientSock.Create ; begin Fsocket := TClientSocket.Create(nil); Fsocket.ClientType := ctBlocking; Fsocket.Port := SockPort; Fsocket.Host := SockAdress; writeln(Sockadress + ' ' + inttostr(Sockport)); Fsocket.OnConnect := DoConnect; end; destructor TClientSock.Destroy ; begin Fsocket.Free; end; procedure TClientSock.DoConnect(Sender: TObject; Socket: TCustomWinSocket); begin writeln('Der Client hat verbunden'); end; procedure TClientSock.run; var msg: Tmsg; begin Fsocket.open; while getmessage(msg,0,0,0) do dispatchmessage(msg); end; end. |
AW: Multi File Transfer
Alleine schonmal die komischen globalen Variablen sprechen gegen multithreading. :roll:
|
AW: Multi File Transfer
hmmm wie gesagt ich bin da Neuling.
Wie müsste ich es dann richtig machen? kleines Beispiel wär vl. nützlich. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:46 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz