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):
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