Si entrar en la comunicacion por la red, tema complicado que ya se ha tratado y que depende mucho de los componentes utilizados, vamos a tratar el tema de meter y sacar un texto al principio de un Stream. Tema tambien recurrente como se puede ver en este
hilo o en este
otro.
Aqui os dejo un ejemplo, en el insertamos en un stream una cadena de texto y una imagen, y luego sacamos el texto y el stream por separado.
Para meterlo:
Código Delphi
[-]
var
Mem: TMemoryStream;
Str: string;
begin
Str:= 'Hola';
Mem:= TMemoryStream.Create;
try
Mem.WriteBuffer(PChar(Str)^,Length(Str)+1);
Image1.Picture.Graphic.SaveToStream(Mem);
Mem.SaveToFile('c:\1.bin');
finally
Mem.Free;
end;
end;
Para sacarlo:
Código Delphi
[-]
var
Mem1, Mem2: TMemoryStream;
Str: string;
begin
Mem1:= TMemoryStream.Create;
Mem2:= TMemoryStream.Create;
try
Mem1.LoadFromFile('c:\1.bin');
Str:= String(PChar(Mem1.Memory));
ShowMessage(Str);
Mem1.Seek(Length(str)+1,soFromBeginning);
Mem2.CopyFrom(Mem1,Mem1.Size -(Length(Str)+1));
Mem2.SaveToFile('c:\1.jpg');
finally
Mem1.Free;
Mem2.Free;
end;
end;