WinSock & Dateien versenden

**combocraft**

Seid gegrüßt!

Ich hab zwar noch nie was gepostet, tobe hier aber schon lange im Forum rum und freu mich über die guten Beiträge!

Also, ich habe folgendes Problem, welches auf diesen Thread aufbaut:

>Klick<

Das Problem ist halt das man zwar Dateien über SendStream verschicken kann, aber ich weiß nicht wie ich die vielen Zeichen mit dem Server wieder aufnehmen soll!
Memo versagt völlig und mit StringList komm ich auch nicht weiter!
Kann mir da jemand mal einen Tipp geben, ich würd eigentlich gerne mit StringList arbeiten!

Hier noch ein bissl Codesalat (ist nur ein experimenteller Code, daher nicht strukturiert etc):

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var AStream:TFileStream;

begin

FreeAndNil(StringList);

AStream := TFileStream.Create('D:\Balls\balls\Cedfence.bmp', fmOpenRead or fmShareDenyWrite );

Clientsocket1.Socket.SendStream(AStream);

end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

  Socket: TCustomWinSocket);

begin

StringList.Add(Socket.ReceiveText);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

StringList:=TStringList.Create;

end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;

  Socket: TCustomWinSocket);

begin

Edit1.Text:='CONNECTED';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

SaveDialog1.Execute;

StringList.SaveToFile(SaveDialog1.FileName);

end;

end.

Hoffe ihr könnt mir helfen!

ComboCraft

WinSock & Dateien versenden

WinSock & Dateien versenden

Forumregeln