Envio de imagen y string por tcp

[willembg8]

Hola a todos. Aunq llevo registrado algun tiempo, este es mi primer mensaje. Intentare explicarme lo mejor que pueda.
Utilizo delphi7.
Tengo que enviar una imagen por tcp, las busquedas que he hecho por el foro me han resulto bastantes dudas. El problema es que necesito enviar una imagen y un string juntos. Como podria empezar esto? La imagen es un TMemoryStream. El string lo puedo hacer tambien TMemoryStream y concatenarlos y los envio con writeStream??? esto funcionaria bien? el problema es que para leerlo los tendre que separar porque son variables diferentes: una es una imagen y la otra es el nombre del ordenador que las envia. Alquien me podria dar alguna idea?
Muchas gracias por su antencion.:)

PD: Espero haberme explicado bien.

[willembg8]

Para enviarlo he hecho este codigo:


var
Nombre,ImgNom : TMemoryStream;
begin
Nombre := TMemoryStream.Create;
Nombre.Write('hola',6);
ImgNom := TMemoryStream.Create;
ImgNom.CopyFrom(Nombre,0);
ImgNom.CopyFrom(ImgStream,0);

try
if Client.Connected = true then
Client.Disconnect;
Client.Host := Ip;
Client.Connect();
Client.WriteStream(ImgNom);
Client.Disconnect;
finally
ImgNom.Free;
end;
end;


El problema es como lo separa cuando lo leo. Separar la imagen del stream.

Gracias

[seoane]

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 (http://www.clubdelphi.com/foros/showthread.php?t=32048) o en este otro (http://www.clubdelphi.com/foros/showthread.php?t=32008).

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:

var
Mem: TMemoryStream;
Str: string;
begin
Str:= 'Hola';
Mem:= TMemoryStream.Create;
try
// Guardamos el texto, observa que ademas del texto guardamos el caracter nulo
Mem.WriteBuffer(PChar(Str)^,Length(Str)+1);
// Guardamos la imagen de un TImage
Image1.Picture.Graphic.SaveToStream(Mem);
// Guardamos en stream en el disco
Mem.SaveToFile('c:\1.bin');
finally
Mem.Free;
end;
end;


Para sacarlo:

var
Mem1, Mem2: TMemoryStream;
Str: string;
begin
Mem1:= TMemoryStream.Create;
Mem2:= TMemoryStream.Create;
try
Mem1.LoadFromFile('c:\1.bin');
// Leemos el texto al principio del stream
Str:= String(PChar(Mem1.Memory));
ShowMessage(Str);
Mem1.Seek(Length(str)+1,soFromBeginning);
// Copiamos el resto del stream en otro stream
Mem2.CopyFrom(Mem1,Mem1.Size -(Length(Str)+1));
Mem2.SaveToFile('c:\1.jpg');
finally
Mem1.Free;
Mem2.Free;
end;
end;

[nenufer]

El primer hilo si que lo habia visto de ahi habia sacado como pasar una imagen. El problema era enviar los dos(, imagen y string, de una y leerlos por separados. Creo q con esto podre solucionarlo. Muchas gracias por contestar. :)