Hi,
bei mir gehts nichtso ganz...
folgendes habe ich:
Client:
Delphi-Quellcode:
var
ms:TMemorystream;
gif:TGifimage;
begin
gif:=TGifimage.create;
gif.LoadFromFile('C:\002.gif');
ms:=Tmemorystream.Create;
gif.SaveToStream(ms);
if not client.Connected then client.connect;
ms.Position:=0;
client.Socket.WriteBufferOpen;
client.Socket.Write(ms);
client.Socket.WriteBufferFlush;
client.Socket.WriteBufferClose;
FreeAndNil(ms);
end;
Server:
Delphi-Quellcode:
procedure TForm1.ServerExecute(AContext: TIdContext);
var
ms:TMemorystream;
gif:TGifimage;
begin
ms:=Tmemorystream.Create;
gif:=TGifimage.Create;
AContext.Connection.Socket.ReadStream(ms);
gif.LoadFromStream(ms);
gif.SaveToFile('C:\xyz.gif');
end;
ich hoffe ihr könnt mir helfen
