[Gimli]

Gracias por el intento pero me sigue pasando lo mismo...

Me he dado cuenta que la imagen que carga en un unico puntito negro

pongo el codigo completo, para que lo veais

Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);
var
    cadena:String;
    stream:TMemoryStream;
    valor,i: Integer;
    s:string;
begin
s:='49492A00D4020000CB726A97FFFFFFF3270FC11883282B615840819C1D95B520820CE2';
s:=s+'3C20833D4B8410660D7410334ECAD85A40CF817090617410F4BA4CAD8504BA0B3A0252';
s:=s+'CD0C863848C8BB65596ACDB3A09146211C6CADD124A1B3EFD20920832B7C1241041174';
s:=s+'CFBB4124105867DBA49041619F66A9241058651A2492099408519A4904B674B092482C';
s:=s+'3292904925B296CCCD24825B29691587D9092082652994B3867DD12482D94B18656FD2';
s:=s+'496CA25D9F76924B6512327E7D8E9249944852A90D067334925B2950433A52D2F8652D';
s:=s+'2492D94A6CA585A5B29499448924994B1B3A9AD2D9416194A54BFB2829696CA0A65022';
s:=s+'492FB395AF652CE19452924B6502B285D697D942A92F65023284D693296B65097FECA1';
s:=s+'A497F65012F652CECA4892BD942A1594AD63E4C05B28224BCEA09672FD94B241772898';
s:=s+'650C5E42C41B2AB5E40C08335656A92C8809D95A765508415D9442CAC06CECF459140D';
s:=s+'050B8657A489309F65773589A5655ACD05FB29D190D8619449B464908E2FB665589E95';
s:=s+'045D191CBFA4CF213FD20CA909594A6A932A437FECA90D74A932A407FA4CA90174A932';
s:=s+'A463A5D952496502E932A44FA5499522656F295265495FFB2A4A3A5499E40FA54832A4';
s:=s+'5FA54995211FECA9082B774A932A432CA175499521856EE95265493F4BFFD26549395B';
s:=s+'8A5D952AFA549952ACADBD2A4CA955D2ECA95456C7A549952D7A549952D4AD8E5185D9';
s:=s+'52D3A549952D0AD9AD2ECA907C25499520CA34841765488E82A4CF2414670970CA91FA';
s:=s+'0A932A4728CA12ECA95384152654A851914405D9E53292E12A4195299495082ECA94CE';
s:=s+'B5082A4CF2994B3082A41952994B1082ECF2F392074832A67D9994A81526550AD999C1';
s:=s+'4223AECF33ECCCE560BA4195436CC8E2A17D9483ECC8C6099F499D056CD09D447AF867';
s:=s+'3952820B83D20CA39E451ECE72A42FA4192C2A42DE76525D21FFFA5FFF4BFD2FF4BFFE';
s:=s+'932B605F4BA5D78FFFDE1CB7535656D432B6138E00200200080000010300010000008C';
s:=s+'0100000101030001000000A50000000301030001000000040000001101040001000000';
s:=s+'080000001701040001000000CB0200001A010500010000003A0300001B010500010000';
s:=s+'004203000032010200140000004A030000000000000000006400000001000000640000';
s:=s+'0001323031303A30313A32372031393A31323A343600';

    stream:=TMemoryStream.Create;
    cadena:= s;
    i:=1;
    while i <= length(cadena) do
    begin
        valor:=Ord(cadena[i]);
        stream.write(valor,1);
        Inc(i);
    end;
    stream.Position:=0;

  guiImage1.Bitmap.LoadFromStream(stream);
  guiimage1.Bitmap.SaveToFile('temp.jpg');
end;

sin embargo esto de aqui abajo si funciona, en la tabla pvTable1 he copiado y pegado manualmente el string s del procedure de arriba en el campo IMAGEN

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
    Corriente : TMemoryStream;
begin
  pvtable1.open
  Corriente := TMemoryStream.Create;

  pvtable1IMAGEN.SaveToStream(Corriente);
  Corriente.Seek(0,soFromBeginning);

  guiImage1.Bitmap.LoadFromStream(corriente);
  guiimage1.Bitmap.SaveToFile('temp.jpg');
end;

Gracias, y a ver si me ayudais a dar con el problema