Jeszcze raz JPEG i Stream

0

Sorki, że tak się naprzykrzam :), ale naprawdę potrzebuję pomocy. Co oznacza błąd: "JPEG error #42" i jak go obejść? Dokładnie opisane jest to w moim poprzednim wątku na forum ("TFileStream i TJPEGImage"). Szukałem tego w pomocy Delphi, FAQ forum i nigdzie nie ma.

0

http://www.google.pl/search?hl=pl&q=%22JPEG+error+%2342%22&lr=

Stosuj normalne tematy.. na miłość boską :-/

0

Rozwiązaniem na ten problem jest zmuszenie bazy do przekazywania wyniku jako blob w komponentach zeosa w Zconnect / propertis należy dodać wpis oidasblob=True

A oto przykładowa procedura która to odczytuje. Jest okrojona do maksimum więc <ort>NIE MA</ort> zabezpieczenia na błędy

procedure TForm1.Button6Click(Sender: TObject);
var
stream:TStream;
RysunekJPEG : TJPEGImage;

begin
RysunekJPEG:=TJPEGImage.Create;
ZQuery1.SQL.Clear;
ZQuery1.SQL.Add('select bjpg from rysunki where id_zlecenia_elementy=2051');
ZQuery1.Open;
stream:=ZQuery1.CreateBlobStream(ZQuery1.FieldByName('bjpg'),bmRead);
RysunekJPEG.LoadFromStream(stream);
Image1.Picture.Bitmap.Assign(RysunekJPEG);
stream.Free;
RysunekJPEG.Free;
ZQuery1.Close;

end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1