[jvalles]

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:

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!!!