🚀 go-pugleaf

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