Witam mam programik ktory zapisuje dane do bazy postgresql. Program dziala jak nalezy (no prawie) dane zapisuja sie do tabeli obrazy w pole bytea wpisuje sie strumien ze zdjeciem ale ... przy odczytywaniu zdjecie ani troszke nie przypomina tego ktore zaladowalismy.
procedure TForm1.Button2Click(Sender: TObject);
var obrazek : TJPEGImage ;
strumien : TMemoryStream ;
begin
obrazek := TJPEGImage.Create ;
strumien := TMemoryStream.Create ;
try
obrazek.Assign(Image1.Picture.Bitmap);
obrazek.CompressionQuality := 100;
obrazek.Compress ;
obrazek.SaveToStream(strumien);
with ZQuery1 do
begin
ZQuery1.ParamCheck := true ;
SQL.Text := format('INSERT INTO obrazki (idobrazka, dane) VALUES (%d, :dane )', [SpinEdit1.Value]) ;
ParamByName('dane').LoadFromStream(strumien, ftGraphic ) ;
ExecSQL ;
end;
finally
strumien.Free ;
obrazek.Free ;
end;
end;
Wydaje mi sie ze blad lezy wlasnie po stronie kompresji i zapisu do bazy gotowy program z kodami pod adresem: