Przenoszenie plików

0

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.

0

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;

0

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;

0

widze ze kolega/kolezanka z tego samego miasta co ja:))

0

po co creatować bitmape?, nie lepiej od razu przekopiować, bez zbędnego jej otwierania?

0

po co creatować bitmape?, nie lepiej od razu przekopiować, bez zbędnego jej otwierania?

A może przed kopiowaniem jest nadpisywana :P

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0