Foros Club Delphi - Envio de imagen y string por tcp

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)

- - Envio de imagen y string por tcp (https://www.clubdelphi.com/foros/showthread.php?t=32752)

Envio de imagen y string por tcp

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.

Para enviarlo he hecho este codigo:

Código Delphi [-]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

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

Código Delphi [-]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;

Gracias por contestar

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