Autor Téma: Blob z TFDQuery do TFDCommand.Param...  (Přečteno 358 krát)

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 2870
  • Karma: 27
    • Verze Delphi: XE7 professional
Blob z TFDQuery do TFDCommand.Param...
« kdy: 01-11-2016, 13:51:42 »
Moje pokusy
Kód: Delphi [Vybrat]
  1.  
  2. var
  3.   ReadStream, WriteStream: TStream;
  4. begin
  5.  
  6.   ReadStream := FqryRptTexts.CreateBlobStream(FqryRptTexts.FieldByName('CONTENT'), bmRead);
  7.   WriteStream := FcmdFOCRptTextIns.CreateBlobStream(FcmdFOCRptTextIns.ParamByName('SECTIONID'), bmWrite); // CreateBlobStream neexsituje
  8.   FcmdFOCRptTextIns.ParamByName('CONTENT').AsBlobs[I] := fldCONTENT.AsBlob // AsBlob neexistuje
  9.  
  10.   try
  11.     WriteStream.CopyFrom(ReadStream, ReadStream.Size);
  12.   finally
  13.     WriteStream.Free;
  14.     ReadStream.Free;
  15. end;
  16.  
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 2870
  • Karma: 27
    • Verze Delphi: XE7 professional
Re:Blob z TFDQuery do TFDCommand.Param...
« Odpověď #1 kdy: 01-11-2016, 19:40:15 »
Občas si aj spomeniem, že som o tom kedysi čosi čítal. Tak som si to našiel:
Kód: Delphi [Vybrat]
  1.   FcmdFOCRptTextIns.ParamByName('CONTENT').LoadFromStream(ReadStream);
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

 

S rychlou odpovědí můžete používat BB kódy a emotikony jako v běžném okně pro odpověď, ale daleko rychleji.

Upozornění: do tohoto tématu bylo naposledy přispěno před 120 dny.
Zvažte prosím založení nového tématu.

Jméno: E-mail:
Ověření:
Datový typ v Delphi, který má True a False: