Hola!!!
a ver si me podeis ayudar, tengo un servicio web hecho en vb.net que me devuelve una imagen en base64binary.
La cosa es que con este codigo:
Código:
procedure TForm1.Button1Click(Sender: TObject);
var ByteArray : TByteDynArray;
begin
ByteArray := (HTTPRIO1 as Serviciomlssoap).DameImagen(1);
ByteArrayToFile( ByteArray, 'c:\imagentemp.jpg');
cargafoto;
end;
procedure tform1.ByteArrayToFile( const ByteArray : TByteDynArray; const FileName : string );
var Count : integer;
F : FIle of Byte;
pTemp : Pointer;
begin
AssignFile( F, FileName );
Rewrite(F);
try
Count := Length( ByteArray );
pTemp := @ByteArray[0];
BlockWrite(F, pTemp^, Count );
finally
CloseFile( F );
end;
end;
funciona perfectamente con delphi 2005, pero cuando lo intento con delphi 6 al ejecutar el servicio me aparace un mensaje de error con todo el contenido de la respuesta del servicio, que no cabe en la pantalla y no puedo ver el final. si intento capturar una excepcion tambien hace lo mismo. Alquien sabe que estoy haciendo mal en delphi 6??
gracias!!!