[Resim Boyutlandırma ve Karşıya Yükleme]

Bir resmi uniimage içine alıp orada yeniden boyutlandırabilirim. Bu işlemden sonra o imajı nasıl bir dosyaya çevirip upload edebiliriz ?

[Resim Boyutlandırma ve Karşıya Yükleme]

Merhaba herkese,

 

Ufak bir resim yükleme programı yapıyorum. Yükleme kısmında bir sorun yok, herşey normal. Ancak asıl yapmak istediğim;

 

Örneğin karşı tarafa yükleyeceğim resim 4928 x 3264 pixel boyutlarında bir jpeg dosya.

 

Karşı tarafa yüklerken boyutunu 640x480 olarak küçültüp ondan sonra küçülmüş halini göndermek. Resimde kırpma ya da kesme yapmak değil, yeniden boyutlandırmak istiyorum.

 

Bu konuda yardım edebilecek kimse varsa şimdiden teşekkür ederim.

[Image To Db]

FIRST : UPLOAD AN IMAGE TO UNIIMAGE

 

NEXT ; USE THESE CODES FOR SAVE BUTTON

 

var

bmp : TBitmap;

jpg : TJpegImage;

begin

Jpg := TJPEGImage.Create;

Bmp := TBitmap.Create;

Jpg.LoadFromStream(UniFileUpload1.Stream);

Bmp.PixelFormat := pf24bit;

Bmp.Width := 768;

Bmp.Height := 1024;

Bmp.Canvas.StretchDraw(Rect(0, 0, 768, 1024), Jpg);

Jpg.Assign(Bmp);

"TABLE NAME+BLOB FIELD NAME".Assign(jpg);

Jpg.Free;

Bmp.Free;

"TABLE NAME".Post;

 

 

THIS IS CODE FOR IMAGE TO DB.

[UniDbGrid Group?]

Hi Sirs,

 

How to group data at UniDbGrid ? is it possible?

 

Best Regards

[Image To Db]

Please see \demos\Fileupload demo

Aradığım bu değildi ama yine de teşekkürler.

[Image To Db]

Selamlar,

 

Kendi yerel bilgisayarımdaki bir resmi, uzak sunucuda çalışmakta olan uygulamaya yerel browser aracılığı ile gönderip orada veritabanına kaydetmek istiyorum.

Kullandığım bileşenler TOpenpictureDialog ve UniImage .

 

I want to save an image from my computer to database on remote server.

 

Win32 masaüstü uygulamasında yaptığım kodlama şu şekilde;

 

Procedure ResimSecF.ResimYukle;

var

bmp : TBitmap;

jpg : TJpegImage;

yol : string;

Begin

Jpg := TJPEGImage.Create;

Bmp := TBitmap.Create;

yol :=folder + '\' +Label2.Caption;

Jpg.LoadFromFile(yol);

Bmp.PixelFormat := pf24bit;

Bmp.Width := 1024;

Bmp.Height := 768;

Bmp.Canvas.StretchDraw(Rect(0, 0, 1024, 768), Jpg);

Jpg.Assign(Bmp);

ResimF.DBImage1.Picture.LoadFromFile(yol);

ResimF.TbResimRESIM.Assign(jpg);

Jpg.Free;

Bmp.Free;

End;