Tengo un gran problema, necesito convetir esta cadena de texto a una imagen
str := 'FFD8FFE000104A46494600010100000100010000
FFDB0043000302020302020303030304030304050
805050404050A070706080C0A0C0C0B0A0B0B0D0
E12100D0E110E0B0B1016101113141515150C0F17
1816141812141514FFDB004301030404050405090
50509140D0B0D1414141414141414141414141414
14141414141414141414141414141414141414141
4141414141414141414141414141414FFC0001108
00C800C803012200021101031101FFC4001F00000
105010101010101000000000000000001020304050
60708090A0BFFC400B510000201030302040305050
4040000017D0102030004110512213141061351610
7227114328191A1082342B1C11552D1F0243362728
2090A161718191A25262728292A3435363738393A4
34445464748494A535455565758595A63646566676
8696A737475767778797A838485868788898A92939
495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6
B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8
D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9........ .....47000';
son 47000 caracteres
en delphi tengo la siguiente funcion que convierte esta cadena a un archivo en este caso la imagen
img es la direccion donde crea el archivo.
Código:
Espero puedan ayudarme, y gracias por su atencionprocedure TfrmCompanies.proStrToBin (img: String; Str: String); var Stream: TFileStream; i: integer; b: integer; begin Stream:= TFileStream.Create (img, fmCreate); try i:= 1; while i < Length (Str) do begin if TryStrToInt ('$' + Copy (Str, i, 2), b) then begin Stream.Write (b, 1); end else Exit; Inc (i, 2); end; finally Stream.Free; end
Saludos.