Incorrect values within SQLDA structure hatası

[Berdem]

Merhaba,
D2007,FB2.0 ve Dbx kullanıyorum.Pdf doyasını kaydetmek isterken " Incorrect values within SQLDA structure" hatası alıyorum.Veya pdf kayıt yapabileceğim başka öneriler varsa memnun olurum.
YArdımlarınızı bekliyorum.

Kod: Tümünü seç

procedure Tevraki.BitBtn3Click(Sender: TObject);
var
    blobF : TBlobField;
    bs : TStream;
    pdf:TMemoryStream;
begin
    pdf:=TMemoryStream.Create;
    pdf.LoadFromFile('C:\desa\zz.pdf');
    dm.Arsiv_cl.Insert;
    blobF := dm.Arsiv_cl.FieldByName('PDS') as TBlobField;
    bs := dm.Arsiv_cl.CreateBlobStream(blobF, bmWrite);
    try
    bs.Write(pdf,SizeOf(pdf));
    finally
    bs.Free;
    end;
   dm.ArsivGelen_cl.Post;
end;

[Berdem]

merhaba farklı denemlerim oldu...Bu delphi helpten..

Kod: Tümünü seç

procedure Tevraki.BitBtn3Click(Sender: TObject);
var
  MS,pdf: TMemoryStream;
begin
    pdf:=TMemoryStream.Create;
    pdf.LoadFromFile('C:\evrak\zz.pdf');
if not (dm.Arsiv_cl.State in [dsInsert, dsEdit]) then
   dm.Arsiv_cl.Insert;
    MS := TMemoryStream.Create();
try
    pdf.SaveToStream(MS);
    dm.Arsiv_clPDS.LoadFromStream(MS);
finally
    MS.Free;
    pdf.Free;
end;
  dm.Arsiv_cl.Post;
end;

Aynı sql hatası veriyor..

Kod: Tümünü seç

procedure Tevraki.BitBtn3Click(Sender: TObject);
var
    bs : TClientBlobStream;
    pdf:TMemoryStream;
begin
    pdf:=TMemoryStream.Create;
    pdf.LoadFromFile('C:\evrak\zz.pdf');
    try
    dm.ArsivGelen_cl.Insert;
    dm.ArsivGelen_cl.FetchBlobs;
    bs:= TClientBlobStream.Create(TBlobField(dm.ArsivGelen_cl.FieldByName('EVRAK')),bmReadWrite);
//    bs.Position:=0;
//    bs.Clear;
    pdf.SaveToStream(bs);
    dm.ArsivGelen_cl.Post;
    finally
      bs.Free;
    end;
end;

buda access violation hatası veriyor...

[Berdem]

Merhaba,
Sorun DBX tam firebird desteği olmamasından kaynaklı . Güncel bir delphi sürümüyle ve malesef ücretli driver aldığınız zaman sorun kolayca çözülüyor.