-
1.
0procedure TForm1.loadPic;
var
jpeg: TJPEGImage;
Stream: TMemoryStream;
BlobField: TBlobField;
begin
BlobField := table1.DataSet. FieldByName('Bild') as TBlobField;
jpeg := TJPEGImage. Create;
try
if (Image1.Picture. Graphic is TJPegImage) then begin
jpeg. Assign (ImageFoto. Picture.Bitmap);
end;
Stream := TMemoryStream. Create;
try
jpeg. SaveToStream (Stream);
DataSourceForm. DataSet.Edit;
BlobField. LoadFromStream (Stream);
finally
Stream. Free;
end;
finally
jpeg. Free;
end;
end;
Veritabanındaki jpeg'i TImage'a alma
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
var
MS: TMemoryStream;
J1: TJPEGImage;
begin
J1 := TJPEGImage. Create;
MS := TMemoryStream. Create;
try
TBlobField(DataSet. Fieldbyname('myBlob')).SaveToStream(MS);
MS.Seek(0,soFromBeginning);
with J1 do begin
PixelFormat := jf24Bit;
Scale := jsFullSize;
Grayscale := False;
Performance := jpBestQuality;
ProgressiveDisplay := True;
ProgressiveEncoding := True;
LoadFromStream(MS);
end;
if MS.Size >0 then
Image1.Picture. Assign(J1)
else
Image1.Picture. Assign(nil);
finally
J1.Free;
MS.Free;
end;
end;
-
ccc rammstein ccc günaydın diler 26 06 2024
-
şu anda jason statham adlı yazarı
-
bahçeli ülkücü bıyığı bırakmış
-
feyzoo ile imana geliyoruz
-
tuvaletee girdiniiz vee
-
çek gıt bebeğim uzaklara çek git
-
bana bak rammşteyynn
-
sozluk olmesin
-
polaris in hayır duasını almak istiyorum
-
köz gibi delikanlı yüreğin olacağına
-
panpa ben eski yazarım
-
yozgatlı olduğum için silindim
-
sözlüğe ddos atanın elleri kurusun
-
feyzullahaq girdim hadi bakalım
-
görevimiz büyüktür
-
parası olmayan erkek yaşamasın
-
ağzıma attır
-
sayik erol tangut genç bi kızı taciz
-
ben 2013 ten beri ismini vermek istemeyen yazar
-
keşke taşaklarımız portatif olsaydı
- / 1