Problem mit empfangen von Datei

[fran]

Hallo Leute,

ich habe da eine Frage und dachte vielleicht kann mir einer von euch Experten eventuell unter Umständen weiter helfen.

Ich programmiere im Moment an einer Client-Server-Anwendung, welche auch Dateien senden können soll.

Delphi-Quellcode:

var a : TMemoryStream; 
   b: tfilestream; 
begin 
b:=TFileStream.Create(edit2.Text, fmopenread); 
a:=TMemoryStream.Create; 
a.LoadFromStream(b); 
clientsocket1.Socket.SendBuf(a.Memory^, a.Size); 
b.Free; 
a.Free; 
end;

Obenstehender Code ist der Sendeteil des Clients, wobei in edit2 der vollständige Pfad, der zu sendenden Datei steht.

Es hat den Anschein, als ob das senden auch soweit funktioniert, da beim Senden einer txt-Datei deren Inhalt im Memofeld des Servers ausgegeben werden kann.

Das Problem ist der Empfangsteil. Bis jetzt habe ich keine Möglichkeit gefunden wie das gehen könnte. Auch das Wälzen von Büchern und Googeln hat bisher keinen Erfolg gebracht.

Vielen Dank schon mal im voraus


Fran