7 replies to this topic

[poliburro]

Estoy desarrollando un webservice con delphi que consume php y hasta ahora todo ha ido bien, pero me ha surgido un requerimiento y es que debo devolver una imagen a través del webservice.

Alguién sabe como se hace esto?

Desde ya muchas gracias

[egostar]

Hola

Tal vez este enlace sea de ayuda, de cualquier forma intentaré desarrollarlo, porque el concepto me parece muy interesante.

Salud OS

[poliburro]

Hola

Tal vez este enlace sea de ayuda

Pues en verdad ha sido de gran ayuda el enlace. Y me permito compartir la manera en que lo he solucionado:

He creado una clase TRemotable para devolver texto y un objeto del tipo TByteDynArray :

delphi

  TBinImagen = Class(TRemotable)
  private
    FRespuesta: AnsiString;
    Fimagen: TByteDynArray;
  published
    property Respuesta: AnsiString read FRespuesta write Frespuesta;
    property imagen: TByteDynArray  read Fimagen write Fimagen;
  End;

Después he creado el siguiente método

delphi

{ Invokable interfaces must derive from IInvokable }
  IIImagen = interface(IInvokable)
  ['{AF016C30-FE52-4C34-8C6B-1A636280CD92}']
    function dameimagen(texto: ansistring): TBinImagen; stdcall;
  end;

implementandolo de la siguiente manera

delphi

function FileToByteArray( const FileName : string ) : TByteDynArray;
const BLOCK_SIZE=1024;
var BytesRead, BytesToWrite, Count : integer;
    F : FIle of Byte;
    pTemp : Pointer;
begin
  AssignFile( F, FileName );
  Reset(F);
  try
    Count := FileSize( F );
    SetLength(Result, Count );
    pTemp := @Result[0];
    BytesRead := BLOCK_SIZE;
    while (BytesRead = BLOCK_SIZE ) do
    begin
      BytesToWrite := Min(Count, BLOCK_SIZE);
      BlockRead(F, pTemp^, BytesToWrite , BytesRead );
      pTemp := Pointer(LongInt(pTemp) + BLOCK_SIZE);
      Count := Count-BytesRead;
    end;
  finally
    CloseFile( F );
  end;
end;
 
function TIImagen.dameimagen(texto: ansistring): TBinImagen;
begin
  Result := TBinImagen.Create;
  Result.imagen := FileToByteArray('C:\apache\htdocs\workflow\images\25407.jpg');
  Result.Respuesta := texto;
end;

Obteniendo en php la representacíón binaria de la imagen mostrandola así:

php

  require_once("lib/nusoap.php");
  $oSoapClient = new soapclient("http://192.168.1.3/cgi-bin/imagen.exe/wsdl/IIImagen",true);
  $aParametros = array("texto" => "prueba de texto");
  $aRespuesta = $oSoapClient->call("dameimagen",$aParametros);
  $imgcode = $aRespuesta['TBinImagen']['imagen'];
  header('Content-type: image/jpg');
  header('Content-length: '.strlen($imgcode));
  echo $imgcode;

Espero que sea de utilidad esta solución.

[egostar]

Que bien que te sirvió amigo, felicidades.

Habrá que asignarlo como tema [RESUELTO]

Salud OS

[TiammatMX]

...Espero que sea de utilidad esta solución.

Amigo Poliburro..., ¿y guardarla? Eso es más interesante para mí en éste momento...

¿Se puede?

[poliburro]

Amigo Poliburro..., ¿y guardarla? Eso es más interesante para mí en éste momento...

¿Se puede?

Saludos amigo, con guardarla te refieres a enviarla desde el navegador al webservice?

[TiammatMX]

Afirmativo, y dejarla en un campo de una tabla en una base de datos.

[poliburro]

Afirmativo, y dejarla en un campo de una tabla en una base de datos.

Debe ser posible amigo, no lo he hecho así pero es cosa de hacer algunas pruebas. Trataré de darme un tiempo para hacerlo y postear la solución.

Saludos cordiales