Multi File Transfer

[codenoob]

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

[himitsu]

Solange/da clientseitig viele Komponenten nicht multithreadfähig sind, für jeden Thread eine Übertragungskomponente erstellen und parallel übertragen?

[codenoob]

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.

[himitsu]

Alleine schonmal die komischen globalen Variablen sprechen gegen multithreading.

[codenoob]

hmmm wie gesagt ich bin da Neuling.

Wie müsste ich es dann richtig machen? kleines Beispiel wär vl. nützlich.