CopyFile

0

CopyFile(OpenDialog.FileName, dir + '\aaa\data.txt', True);

czego sie nie da tego skompilować? dir to string w którym jest 'c:\test'
chce żeby 1 parametr był pobrany z opendialoga

0

z helpa:

procedure TForm1.CopyFileClick(Sender: TObject);
var
  Source, Destination:TStream;
begin
  Source := TFileStream.Create(edFrom.Text, fmOpenRead or fmShareDenyWrite);
  try
    Destination := TFileStream.Create(edTo.Text, fmOpenCreate or fmShareDenyRead);
    try
      Destination.CopyFrom(Source,Source.Size);
    finally
      Destination.Free;
    end;
  finally
    Source.Free
end;

reszta w FAQ
masz tam nawet jak pokazac to na ProgressBarze

0

Użyj PChar(string), przecież argumety w CopyFile muszą być typu PChar.

0

Lofix : nie kapuje nic co do mnie rozmawiasz
berl : Dzięki, tylko jak sie skompiluje to na dole w oknie gdzie wyskakują błędy w delphi pokazuje mi sie :
unfase PChar

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