ibrahim71

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

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.

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.

Hi Sirs, How to group data at UniDbGrid ? is it possible? Best Regards

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

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;