Blob - read/write z Firebirdu cez FireDAC

[František]

takto čítam

Kód: [Vybrat]

  function GetBlobText(SQLQ:TFDQuery; bField:string ):string;
  var
    bs: TMemoryStream;
    sl: TStringList;
  begin
    sl := TStringList.Create;
    bs := TMemoryStream.Create;
    try
      TBlobField(SQLQ.FieldByName(bField)).SaveToStream(bs);
      bs.Position := 0;
      if bs.Size > 0
        then begin
                sl.LoadFromStream(bs);
                result := sl.Text;
        end
        else result := '';

    finally
      bS.Free;
      sl.Free;
    end;
  end;
a takto zapisujem

Kód: [Vybrat]

procedure SetBlobText(trQuery:TFDQuery; text:string );
var
    msp: TMemoryStream;
    pSL: TStringList;
    trQuery: TFDQuery;
begin
        msp := TMemoryStream.Create();
        pSL := TStringList.create;
        pSL.Text := text;
        pSL.SaveToStream(msp);
        try
          trQuery.sql.DefaultEncoding := System.SysUtils.TEncoding.UTF8;
          trQuery.SQL.Clear;
          trQuery.SQL.Add('UPDATE XXX SET ');
          trQuery.SQL.Add('POZITIV = :POZITIV ');
          trQuery.SQL.Add('WHERE IDT = 1');
          trQuery.ParamByName('POZITIV').SetBlobRawData(msp.Size,msp.Memory);
          trQuery.ExecSQL;
        finally
             pSL.Free;
             msp.Free;
        end;
end;v podstate to funguje, ale bol som upozornený, že existuje niečo elegantnejšie
(pre XE5)
ak máte nejaké vylepšenie, sem s ním,
vďaka aj za iných

[100147]

Predpokladejme tedy, ze se jedna o definici sloupce BLOB SUB_TYPE TEXT (proc taky jinak vracet z podobnych funkci retezec typu string). Nevim jak Delphi XE5, nicmene FireDAC v Delphi Tokyo umi primy pristup k BLOB datum Firebird typu BLOB SUB_TYPE TEXT pomoci AsString accessoru (a to jak pro pole tak parametry, tedy cteni i zapis).

[KarelHorky]

Toto teď používám k plné spokojenosti v XE6, v XE5 to snad pojede taky. Přenáším obsah blobu z jedné tabulky do jiné tabulky:

Kód: Delphi [Vybrat]

1. var
2.   Pozn: TStream;
3.  
4. if not FDQuery1.FieldByName('PAR_BLOB').IsNull then
5. begin
6.   Pozn := FDQuery1.CreateBlobStream(FDQuery1.FieldByName('PAR_BLOB'), bmRead);
7.   Pozn.Position := 0;
8.   FDQuery2.ParamByName('BLOB_CIL').LoadFromStream(Pozn, ftBlob);
9.   Pozn.Free;
10. end;
11.  

[100149]

Toto teď používám k plné spokojenosti v XE6, v XE5 to snad pojede taky. Přenáším obsah blobu z jedné tabulky do jiné tabulky:

Kód: Delphi [Vybrat]

1. var
2.   Pozn: TStream;
3.  
4. if not FDQuery1.FieldByName('PAR_BLOB').IsNull then
5. begin
6.   Pozn := FDQuery1.CreateBlobStream(FDQuery1.FieldByName('PAR_BLOB'), bmRead);
7.   Pozn.Position := 0;
8.   FDQuery2.ParamByName('BLOB_CIL').LoadFromStream(Pozn, ftBlob);
9.   Pozn.Free;
10. end;
11.  

I vyse citovane bude fungovat protoze nakonec stejne dojde k implicitni konverzi metodou TFDFormatOptions.ConvertRawData.

Porad vsak predpokladam definici sloupce BLOB SUB_TYPE TEXT a pro nej je nejcistejsi nejspis tohle (nedochazi k zadne konverzi); pro ANSI sloupec:

Kód: Delphi [Vybrat]

1. FDQuery2.ParamByName('ParamAnsiBlobText').AsMemo := TMemoField(FDQuery1.FieldByName('FieldAnsiBlobText')).Value;

Pro Unicode sloupec pak podobne:

Kód: Delphi [Vybrat]

1. FDQuery2.ParamByName('ParamUnicodeBlobText').AsWideMemo := TWideMemoField(FDQuery1.FieldByName('FieldUnicodeBlobText')).Value;

AsString accessor bude fungovat taky, jen dojde k implicitni konverzi. Ten meziclanek se streamy si totiz koleduje o chybu v kodovani (pri pouhem binarnim prenosu dat to vsak nevadi, o zbytek se totiz postara FireDAC).