Domů
Nápověda
Přihlásit
Registrovat
Vítejte
Host
. Prosím
přihlašte se
nebo
zaregistrujte
.
Forum Delphi.cz
»
Delphi
»
FireDAC
»
Blob z TFDQuery do TFDCommand.Param...
« předchozí
další »
Tisk
Stran: [
1
]
Dolů
Autor
Téma: Blob z TFDQuery do TFDCommand.Param... (Přečteno 1101 krát)
Stanislav Hruška
Padawan
Příspěvků: 5615
Karma: 42
Verze Delphi: W10 + Delphi 10.4 professional
Blob z TFDQuery do TFDCommand.Param...
«
kdy:
01-11-2016, 13:51:42 »
Moje pokusy
Kód: Delphi
[Vybrat]
var
ReadStream
,
WriteStream
:
TStream
;
begin
ReadStream
:
=
FqryRptTexts
.
CreateBlobStream
(
FqryRptTexts
.
FieldByName
(
'CONTENT'
)
,
bmRead
)
;
WriteStream
:
=
FcmdFOCRptTextIns
.
CreateBlobStream
(
FcmdFOCRptTextIns
.
ParamByName
(
'SECTIONID'
)
,
bmWrite
)
;
// CreateBlobStream neexsituje
FcmdFOCRptTextIns
.
ParamByName
(
'CONTENT'
)
.
AsBlobs
[
I
]
:
=
fldCONTENT
.
AsBlob
// AsBlob neexistuje
try
WriteStream
.
CopyFrom
(
ReadStream
,
ReadStream
.
Size
)
;
finally
WriteStream
.
Free
;
ReadStream
.
Free
;
end
;
IP zaznamenána
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.
Stanislav Hruška
Padawan
Příspěvků: 5615
Karma: 42
Verze Delphi: W10 + Delphi 10.4 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]
FcmdFOCRptTextIns
.
ParamByName
(
'CONTENT'
)
.
LoadFromStream
(
ReadStream
)
;
IP zaznamenána
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.
Tisk
Stran: [
1
]
Nahoru
« předchozí
další »
Forum Delphi.cz
»
Delphi
»
FireDAC
»
Blob z TFDQuery do TFDCommand.Param...