🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.delphi.bazy-danych
Article #81112

Re: CodeTyphon + ZEOSLIB + problem z zapisem grafiki

#81112
From: miab
Date: Mon, 13 Nov 2017 15:21
40 lines
1153 bytes
W dniu 13-11-2017 o 13:28, jw_developer pisze:
> W dniu 2017-11-13 o 11:51, miab pisze:
>> W dniu 12-11-2017 o 12:19, jw_developer pisze:
>>> F_03 BLOB SUB_TYPE 0 SEGMENT SIZE 80 NOT NULL
>>
>> Dlaczego NOT NULL?
>> Masz klucz?
>>
>> miab
>
> Tak. Jest to tabela przechowująca wizerunki (zdjęcia) pracowników
> (jeżeli takowe istnieją), która posiada również pole F_02 (integer)
> będącym kluczem obcym do tabeli pracowników. Zapomniałem napisać, że
> ZEOS-y to 7.2.1-rc

Mi taka sekwencja:

<code>
  if OpenPictureDialog1.Execute then
    begin
ZQuery1.ParamByName('F_BLOB').LoadFromFile(OpenPictureDialog1.FileName,
ftBlob);
    ZQuery1.ParamByName('F1').Value:=StrToInt(Edit1.Text);
    ZQuery1.ParamByName('F2').Value:íit2.Text;
    ZQuery1.ExecSQL;
    end;
</code>

dla SQL:
INSERT INTO T1 VALUES (:F1, :F2, :F_BLOB)

działa z formatem *.bmp w Lazarus 1.8RC5-Win32 i Delphi 10-Win32
dla FB2.5 i ZEOS 7.2.x svn 4052(7.3.x zresztą też):
https://sourceforge.net/p/zeoslib/code-0/HEAD/tree/branches/testing-7.2/
Nie wiem dlaczego w CT to nie działa(może autor za bardzo odpłynął od
głównego nurtu Lazarus'a)

miab


Message-ID: <ouc9sd$siu$1@node2.news.atman.pl>
Path: polish.pugleaf.net!archive.newsdeef.eu!apf1.newsdeef.eu!news.usenet.farm!..!..!not-for-mail
References: <5a082e2f$0$15201$65785112@news.neostrada.pl> <oubti1$qc7$1@node1.news.atman.pl> <5a098fec$0$5160$65785112@news.neostrada.pl>