var
Bitmap : TBitmap;
begin
Open.Execute;
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile(open.InitialDir);
CopyFile('open.initialdir', 'C:\uiog23222j.bmp', True);
Bitmap.Free;
end;
Wszystko dobrze się kompiluje ale podczas pracy wyskakuje błąd.
Open to jest OpenPictureDialog.
Proszę o pomoc.
var
Bitmap : TBitmap;
begin
if Open.Execute then
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile(Open.FileName);
CopyFile(Open.initialdir, 'C:\uiog23222j.bmp', True);
Bitmap.Free;
end;
end;
var
Bitmap : TBitmap;
begin
Open.Execute;
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile(open.InitialDir);
CopyFile('open.initialdir', 'C:uiog23222j.bmp', True);
Bitmap.Free;
end;
powinnło być
var
Bitmap : TBitmap;
begin
Open.Execute;
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile(open.filename);
CopyFile(open.filename, 'C:uiog23222j.bmp', True);
Bitmap.Free;
end;
widze ze kolega/kolezanka z tego samego miasta co ja:))
po co creatować bitmape?, nie lepiej od razu przekopiować, bez zbędnego jej otwierania?
po co creatować bitmape?, nie lepiej od razu przekopiować, bez zbędnego jej otwierania?
A może przed kopiowaniem jest nadpisywana :P