Enviar y recibir imágenes por servicios web

[roman]

Bueno, pero es que tú no estás conviertiendo en texto tu imagen. La propiedad DataString del Stream simplemente coloca los datos del stream en un string pero este string sigue teniendo datos binarios. En Delphi, un string carga datos de cualquier tipo, no sólo caracteres legibles.

Debes buscar alguna biblioteca que te codifique la imagen como texto como UUencode o Base64. Me imagino que los componentes Indy traen algo así puesto que es lo que se usa para transferir datos binarios através del correo electrónico.

// Saludos

[jscubillos5]

Hola Roma gracias por tu ayuda y tienes toda la razón, busque un código para codificar la imagen a base 64, me base en este hilo del foro: http://www.clubdelphi.com/foros/showthread.php?t=48924, implemente el código, y cuando intento enviarlo por el servicio web obtengo el siguiente error:



El valor de la variable a la cual le aplico el base 64 es:



El código actual que tengo es:

Código Delphi [-]
procedure TFormPrincipal.ButtonEnviarImagenClick(Sender: TObject);
var
  //CorrienteArchivo: TFileStream;
  CorrienteEntexto: String;
  Corriente : TMemoryStream;
begin
  // Utilizo un dialogo para buscar la imagen
  if OpenDialogPrincipal.Execute then
  begin
    // Creo un Stream
    Corriente:= TMemoryStream.Create;
    try
      try
        // Cargo en la corriente la imagne
        Corriente.LoadFromFile(OpenDialogPrincipal.FileName);
        //  Cargo la imagen en el control visual del formulario
        ImageControlUPrincipal.Bitmap.LoadFromStream(Corriente);
        // Envio los datos a la clase base64 y cargo los resultados en CorrienteEntexto
        CorrienteEntexto:= BinToStr(Corriente.Memory, Corriente.Size);
        // Consumo el servicio enviado todos los datos
        ICorrientedeImagenes1.GetICorrientedeImagenes.GuardarImagen(AnsiUpperCase(ExtractFileExt(OpenDialogP  rincipal.FileName)), ExtractFileName(OpenDialogPrincipal.FileName), ExtractFilePath(OpenDialogPrincipal.FileName), CorrienteEntexto);
      finally
        // Libero la corriente o Stream
        Corriente.Free;
      end;
    except
      // En caso de error muestro
      on E: Exception do
      begin
        raise Exception.Create(e.Message);
      end;
    end;
  end
  else
  begin
    // Por si cierran el dialogo sin escojer una imagen
    raise Exception.Create('Atención ha cerrado el buscador sin seleccionar ninguna imagen.');
  end;
end;

[jscubillos5]

Hola, por fin después de buscar y buscar, encontré, que el usuario Seoane, ofrece su unit, con solo código, sin usar la API de Windows, no entiendo todavía, el por que del error, tal vez falta de compatibilidad, o tal vez Windows modifico esa unidad para Windows 7, la verdad todos son supuestos, pero la solución es usar la Uni de Seoane, sin utilizar las librerias de Windows, la unit esta: http://delphi.jmrds.com/?q=node/84.

[[escafandra]]

Efectivamente la solución es usar una codificación Base64. Aquí tienes más ejemplos.

Saludos.