ذخیره کردن در فایل تصویری

[e_nezamfar]

سلام
من میخوام با استفاده از کلید prtscr از برنامه دلفی در حال اجرا عکس بگیرم و سپس در یک فایل تصویری ذخیره کنم .
چطوری میتونم در یک فایل تصویری ذخیره کنم؟

[delphi5]

باید از piccel 0,0 تا piccel 640,280 را بوسیله یک متد داخل فایل ذخیره کنی . من قبلا این کار رو انجام دادم . اگه بتونم پیداش کنم حتما برات میفرستمش

[m-khorsandi]

خوب کدوم بخش رو میخوای با دلفی انجام بدی!!؟

[delphi5]

نتونستم پیداش کنم . اما چیزی که بیادم میاد اینه که
از دو loop تو در تو استفاده میکردم . در هر بار چرخش loop یه آدرس x,y داشتم .
یه ارایه دو بعدی تعریف میکردم که شامل آدرس و رنگ بود . در هر چرخش loop مقدار رنگ و آدرس picccel رو ذخیره میکردم .

[Mah6447]

// Copy form1 as bitmap into the clipboard
// Kopiert Form1 als Bitmap in die Zwischenablage

procedure TForm1.Button1Click(Sender: TObject);
var
imgWindow: TBitmap;
begin
imgWindow := GetFormImage;
try
Clipboard.Assign(imgWindow);
finally
imgWindow.Free;
end;
end;

// Save the bitmap to a file
// Das Bitmap in einer Datei speichern:

procedure TForm1.Button2Click(Sender: TObject);
var
imgWindow: TBitmap;
begin
imgWindow := TBitmap.Create;
try
imgWindow := Form1.GetFormImage;
imgWindow.SaveToFile('c:\FormImage.bmp');
finally
imgWindow.Free;
end;
end;

منبع : http://www.swissdelphicenter.ch/en/showcode.php?id=448