hojjatcroos
چهارشنبه 27 خرداد 1388, 14:38 عصر
-سلام دوستان
-از کد زیر برای نوشتن اطلاعات از جمله یک عکس رو فایل استفاده میکنم اما تصویر رو فایل نوشته نمی شود از دوستان می خواهم اگه ممکنه کمک کنند خیلی ممنون.
procedure TForm1.Button1Click(Sender: TObject);
type
TCustomer = Record
name : string[20];
age : Integer;
AX:TImage;
end;
var
FIL:file of TCustomer;
c:TCustomer;
begin
AssignFile(FIL,'c:\text.dat');
Rewrite(FIL);
c.name:='Ali';
c.age:=10;
c.AX:=TImage.Create(Self);
c.AX.Picture.Bitmap:=Form1.Image1.Picture.Bitmap;
Write(fil,c);
CloseFile(FIL);
end;
-از کد زیر برای نوشتن اطلاعات از جمله یک عکس رو فایل استفاده میکنم اما تصویر رو فایل نوشته نمی شود از دوستان می خواهم اگه ممکنه کمک کنند خیلی ممنون.
procedure TForm1.Button1Click(Sender: TObject);
type
TCustomer = Record
name : string[20];
age : Integer;
AX:TImage;
end;
var
FIL:file of TCustomer;
c:TCustomer;
begin
AssignFile(FIL,'c:\text.dat');
Rewrite(FIL);
c.name:='Ali';
c.age:=10;
c.AX:=TImage.Create(Self);
c.AX.Picture.Bitmap:=Form1.Image1.Picture.Bitmap;
Write(fil,c);
CloseFile(FIL);
end;