Hallo,
ich hab mal wieder ein Problem mit Streams: Warum wird im folgenden Code das Bild nicht versendet?
Delphi-Quellcode:
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
server.Active := true;
memo1.Lines[0] := '';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
client.Connect();
end;
procedure TForm1.serverExecute(AThread: TIdPeerThread);
Var Stream: TMemoryStream;
begin
Stream := TMemoryStream.Create;
Athread.Connection.ReadStream(Stream, SizeOf(Stream));
Image2.Picture.Bitmap.LoadFromStream(Stream);
Image2.Picture.SaveToFile('c:\testbild.bmp');
Stream.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
Var Stream2: TMemoryStream;
begin
Stream2 := TMemoryStream.Create;
Image1.Picture.Bitmap.SaveToStream(Stream2);
Client.WriteStream(Stream2);
Stream2.Free;
end;
end.
Hoffe ihr könnt mir helfen,
Gruß
Spurius