Convertir imagen en Array of Byte

[jlrdz]

Empezado por duilioisola

Supongo que lo que necesitas es codificar la imagen en BASE64 para poder agregarla a tu XML.

Aquí tienes un hilo que muestra el código para hacer eso en el mensaje número 4:
http://www.clubdelphi.com/foros/show...ghlight=base64

Muchas gracias amigo por tu respuesta, lo intentaré de esa forma y daré respuesta.

Saludos!

[jhonny]

Bueno, quizá también sirva echarle ojo a este post...

http://www.clubdelphi.com/foros/show...90&postcount=4

Que viene siendo al revés pero apuesto que una pista interesante se encuentra ahí.

[jlrdz]

Gracias a todos por sus respuestas y el tiempo que se tomaron en ayudarme, a fin de cuentas el archivo que me generó la importación de wsdl solicitaba que el archivo se pasara como TByteDynArray, aquí les dejaré la función que me ayudó a resolver dicho problema por si alguien más lleva a pasar por lo mismo.

Saludos.

Código Delphi [-]
function TForm1.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;

Así se manda llamar...

Código Delphi [-]
var nImagenArray :TByteDynArray;
begin
...
   nImagenArray := FileToByteArray('c:\rutaimagenejemplo.jpg');
...
end;