----- ЗАГРУЗКА В БАЗУ ЧЕРЕЗ ПОТОК ----------------------
begin
if OpenPictureDialog1.Execute then
begin
if Query1.State = dsBrowse then
Query1.Edit;
Query1FILENAME.Value := OpenPictureDialog1.FileName;
Pict := TPicture.Create;
try
Pict.LoadFromFile(OpenPictureDialog1.FileName);
Jpg := TJpegImage.Create;
Ss := TStringStream.Create('');
if Pict.Graphic is TJPegImage then
begin
Jpg.LoadFromFile(OpenPictureDialog1.FileName);
Jpg.SaveToStream(Ss);
Query1JPEG.AsString := Ss.DataString;
end
else
try
// if Pict.Graphic is TBitmap then
// begin
Jpg.Assign(Pict.Graphic);
Jpg.CompressionQuality := 70;
Jpg.PixelFormat:= jf24Bit;
Jpg.JPEGNeeded;
Jpg.SaveToStream(Ss);
Query1JPEG.AsString := Ss.DataString;
// end;
except
Result := MessageBox(Handle,'Данный формат не поддерживается!',PChar(Application.Title),16);
Query1.Cancel;
Exit;
end;
except
Result := MessageBox(Handle,'Данный формат не поддерживается!!',PChar(Application.Title),16);
Query1.Cancel;
Exit;
end;
// Ss.Free;
// Jpg.Free;
Query1.Post;
end;
end;

------------ ОТОБРАЖЕНИЕ ПРИ ПРСМОТРЕ БАЗЫ ------------------------

procedure TFm_spMain.DataSource1DataChange(Sender: TObject; Field: TField);
begin
Ss:= TStringStream.Create('');
Jpg:= TJPEGImage.Create;
try
if (Field = nil) and (not Query1JPEG.IsNull) then
begin
Ss.WriteString(Query1JPEG.AsString);
Ss.Position:= 0;
Jpg.LoadFromStream(ss);
Image1.Picture.Assign(Jpg);
end;
finally
Ss.Free;
Jpg.Free;
end;
end;