-
15.
0@15 panpa delphinin hangi sürümü bu finally falan biz hala delphi7 görüyoruz gib gibi
-
14.
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; -
13.
0binary-ole up
-
12.
0loadfromfile up
-
11.
0datagrid up
-
10.
0@10 basic ten şaşmam normalde
-
9.
0@10 veritabanı 2 yapcak bişey yok panpa
-
8.
0@7 harikasın buldumda orda ben yapmadım
- 7.
-
6.
0datasource up
-
5.
0adotable up
-
4.
0borland up
-
3.
0ebenizin amı be önemli olmaya yazarmıydım
-
2.
0olm finale girmeden 100 alcam lan yardım edin
-
1.
0resim kaydetme nasıl lan ödevi yaparsam finale girmiycem beyler yardım
-
ccc rammstein ccc günaydın diler 28 06 2024
-
bu haber programlarına neden
-
bu ne amk kskskakakwkqkqwkss
-
attığım şuku gitmiyor mağdur oldum
-
zeki alasya kurt adam olmuş
-
the vikings ne zaman offline olacak
-
24 online ne la
-
bu fotoo size hangi yazarıı
-
belediye bankı vs kadın
-
zezeeeee
-
adiyamanli ayik ol
-
uçakta rezalet
-
zorla sünnet edip askere gönderdiler desem
-
yahu ddos atman şu sözlüğe
-
ileride mavi yakalılar daha kıdemli olacak
-
dayımın kayınbiraderi
-
burası hala duruyor mu hala laan pugahag
-
eski nonoşlardan kim kaldı
-
bir insanın kendisine yapabilecegi en büyük iyilik
-
feyzo bana kufur etmis
-
wang yu nun karete filan bildiği yok
-
skibidi toilet komünizm propagandasıymış
-
tarkanın paralel evrenlerde ki benzerini buldum
- / 1