jpg sorunu

[gulsahh]

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 y,x:integer;

 Bitmap     : TBitmap;
 img1 : TBitmap;
 XRect : TRect;

 begin
  y:=StrToint(Edit1.Text);
  x:=StrToint(Edit2.Text);

 try

 Bitmap := TBitmap.Create;
 Bitmap.Width  := Form1.Image1.Picture.Width;
 Bitmap.Height := Form1.Image1.Picture.Height;

 Bitmap.Canvas.Draw(0, 0, Form1.Image1.Picture.Graphic);
 img1 := TBitmap.Create();
 img1.Height := Y;
 img1.Width := X;
 XRect := Rect(0, 0, X, Y);
 img1.Canvas.StretchDraw(XRect,bitmap);
 Form1.Image1.Picture.Bitmap := img1; //!!!:D
 Bitmap.Free;
 img1.Free;
 Label1.Caption :=' X : '+IntToStr(Image1.Picture.Width) + ' -' +' Y : '+IntToStr(Image1.Picture.Height) + ' pixel.  ' ;
except

 Application.MessageBox('Hata oluştu','Hata',MB_OK+MB_ICONERROR);

 ShowMessage('X ve Y nin Yeni Değerlerini giriniz?');
  end;


end;

bu kodlarla delphiye jpg resmi okutabiliyorum ama o resmi kaydettikten sonra (jpg olarak) hiç bi proğramda göstermiyo ve #53 jpg hatası veriyo :( nasıl çözücem

[Elaman]

Slm sanıyorum dosyaların boyutu ile alakalı bir sorun oluyor. Seninle aynı sorunu yaşayan bir arkadaş nette şöyle yazmış:

"Arkadaşlar sorunu çözdüm nedeni sanırım word'ün şekilleri standart jpeg olarak değilde başla bir şekilde kaydetmesiymiş(gene jpg). photoshop bile acamıyordu. Şöyle uzun bir yol buldum.
Resmi alınca ekranda ustte bi pencerede gösteriyorum printscreen yapıp bmp olarak kaydediyorum."

Ayrıca google da da sorunun yanıtını bulabilirsin belki. Sorry elimden çok fazla birşey gelmiyor:
http://www.google.com.tr/search?hl=tr&q ... rror+%2353

[gulsahh]

okudum o yazıyı nasıl yapıcağımıda biliyorum ama ben jpg olarak kaydetmek istiyorummmmm

[Battosai]

jpeg uniti kullanmalısın...yüklediğin jpeg dosyasınıda resim.savetofile('C\'); diye kayıt ettikten sonra işlem tamam...ayrıca jpeg gösteriyorum dediğin kodda jpeg ile alakalı değil bmp dosyası işlemi olur ancak o.....delphi ile jpeg kullanımı diye bir aram yap cevabını bulursunçççç

[gulsahh]

tamam teşekküler aramadan yazmam zaten buraya ama işin içinden çıkamıycam gibi görünüyo

[ikutluay]

tamam teşekküler aramadan yazmam zaten buraya ama işin içinden çıkamıycam gibi görünüyo

battosai haklı kodunda jpeg le ilgili bişi yok. kısaca önce jpeg uniti kullanman gerek.