🚀 go-pugleaf

W dniu 2017-11-28 o 00:16, miab pisze:
> W dniu 12-11-2017 o 12:19, jw_developer pisze:
>> Witam !
>>
>> Windows 10/64 bit + Firebird 2.5 + CodeTyphon 6.2 + 
>> ZEOSLIB(zainstalowana z CT)
>>
>> Pole w bazie danych zadeklarowane jako :
>> F_03 BLOB SUB_TYPE 0 SEGMENT SIZE 80 NOT NULL
>> W poprzedniej wersji CT (5.9) zapis i odczyt grafiki działał bez 
>> problemu a w aktualnej wersji nie zapisuje się nic albo ewentualnie
>> jakieś "krzaki" bez względu na format zapisywanej grafiki.
>>
>> StoredProc_1.Params.AddParam(StoredProc_1.Params.CreateParam(ftBlob,'P_03', 
>> ptInput));
>> if OpenPictureDialog1.FileName.IsEmpty then
>>    StoredProc_1.ParamByName('P_03').Value := Null
>> else
>> StoredProc_1.ParamByName('P_03').LoadFromFile(OpenPictureDialog.FileName, 
>> ftBlob);
>>
>> Gdzie może być błąd ?.....
> 
> Raczej nie w ZEOS (teraz sprawdziłem).
> W Delphi 10 i Lazarus 1.8RC5 działa 
> .LoadFromFile(OpenPictureDialog.FileName, ftBlob)
> natomiast w CT 6.30 nie(znaczy działa z błędami w danych).
> Natomiast ładowanie przez pośredniego stream-a działa dla wszystkich:
> <code>
> procedure TForm1.Button4Click(Sender: TObject);
> var
>    blob, fs: TStream;
> begin
>    if OpenPictureDialog1.Execute then
>    begin
>    //
>    ZTable1.Insert;
>    ZTable1.FieldByName('F1').AsInteger:= 4;
>    blob:= ZTable1.CreateBlobStream(ZTable1.FieldByName('F_BLOB'), bmWrite);
>    try
>      blob.Seek(0, soFromBeginning);
> 
>      fs:= TFileStream.Create(OpenPictureDialog1.FileName, fmOpenRead or
>        fmShareDenyWrite);
>      try
>        blob.CopyFrom(fs, fs.Size)
>      finally
>        fs.Free
>      end;
>    finally
>      blob.Free
>    end;
> 
>    ZTable1.Post;
> 
>    end;
> end;
> </code>
> 
> miab

Witam !

Chociaż jest to konstrukcja *bardzo pokrętna* to działa !
Niestety ja dokonuję zapisu z użyciem StoredProc + Execproc (BLOB jest 
jednym z parametrów) i nie wiem za bardzo jak dostosować powyższy kod. 
Poza tym pozostaje problem odczytu (umieszczenia LOBA w Image.Picture) gdyż

ST := TStringStream.Create(StoredProc_1.ParamByName('NAZWA PARAMETRU 
BLOB').AsString);
Image1.Picture.LoadFromStream(ST);

również nie działa (w CT 5.9 działa super !). Pobieranie parametru 
dokonuje się również przy użyciu StoreProc + Execproc gdyż w 
międzyczasie dokonywane są inne odczyty, zapisy do tabel tymczasowych 
itp ... co mogłoby generować niepotrzebny ruch w sieci.

Pozdrawiam