Enviar y recibir imágenes por servicios web

[[egostar]]

¿Y si agregas un Seek() antes de pasarlo al Resut?

Código Delphi [-]
      // Copio a mi corriente string la corriente desde la posicion 0
      Temporal.CopyFrom(Corriente, 0);

      Temporal.Seek(0,0); 

      // Le asigno al resultado el valor de mi corriente string, en la propiedad DataString
      Result := Temporal.DataString;

Saludos

[jscubillos5]

Hola Egostar, gracias por tu ayuda, probé con la linea de código, pero sigo obteniendo el mismo resultado.

[jscubillos5]

Hola comunidad ya encontré la solución a mi problema, tuve que crear una función adicional que pasa de texto a imagen, esta función me retorna un TStream:

Código Delphi [-]
function TForm1.DeTextoaCorriente(Texto: String): TStream;
begin
  try
    // Se le asigna a la variable result el valor del texto ingresado, llamando al TString.Create.
    Result:= TStringStream.Create(Texto);
  except
    on E: Exception do
    begin
      // En caso de error
      raise Exception.Create(e.Message);
    end;
  end;
end;

Ya en la imagen en el boton agregue solo estas lineas:

Código Delphi [-]
Corriente:= DeTextoaCorriente(CorrienteEntexto);
        ImageControlUPrincipalTransformada.Bitmap.LoadFromStream(Corriente);