用CopyFile拷贝文件出现怪事,现问题以有眉目!请高人破解指点!!! (93分)

dok001 · 2003-01-11

用API函数CopyFile拷贝文件出现怪事: 1 程序基本没变,只是动了后缀,但以前拷贝图片文件很正常,现在拷贝多媒体文件(mid和mp3)能通过编译,但不响应. 2 还发现API函数CopyFile后面分号';'要不要都能通过编译. 百思不得其解,请高人指点 procedure Form1.Button2Click(Sender: TObject); begin   Label1.Caption:=edit10.Text;//用来观察源文件是否正确,实际显示是正确的   wjm:='C:/Program Files/slbh/'+SpinEdit3.Text+'.mid';   Label2.Caption:=wjm;;//用来观察目标文件是否正确,实际显示是正确的   CopyFile(pchar(edit10.Text),pchar(wjm),False);//这里分号';'要不要都能通过编译   end;

lanbing1400 · 2003-01-11

第一个问题可能是文件名错误 第二个问题，对于最后一行代码';'可以不写

delphiland · 2003-01-11

用API： function CopyFiles(const Source,Dest: string): boolean; var   fo: TSHFILEOPSTRUCT; begin   FillChar(fo, SizeOf(fo), 0);   with fo do   begin     Wnd := 0;     wFunc := FO_COPY;     pFrom := @source[1];     pTo :=pchar(dest);     fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR    ;   end;   Result := (SHFileOperation(fo) = 0); end;

dok001 · 2003-01-11

源文件和目标文件在哪?是把这段拷到程序的哪一个地方,请讲细些!

del520 · 2003-01-11

你那个文件名中含有text内容，是不是有可能你那个text中有空格，最好还是用 trim(wjm)干一下，要不就是文件根本无法找到。

dok001 · 2003-01-11

用trim(wjm)试了,还不行

del520 · 2003-01-11

原文件有吗？

dok001 · 2003-01-11

还有更怪的事, 为了看个究竟,我又按了三个Button观察,又出现一会可替换,有的文件不可替换(我发复试了几十次,各种组合都试),真出了怪了! procedure Tpropotivce.Button9Click(Sender: TObject); begin   wjm:='C:/Program Files/slbh/'+SpinEdit3.Text+'.mid';   MediaPlayer1.FileName:=wjm;   MediaPlayer1.AutoOpen:=True ;   MediaPlayer1.open;   MediaPlayer1.Notify:=True ; end; procedure Tpropotivce.Button10Click(Sender: TObject); begin wjm:='C:/Program Files/slbh/'+SpinEdit3.Text+'.mid';   MediaPlayer1.FileName:=edit10.Text;   MediaPlayer1.AutoOpen:=True ;   MediaPlayer1.open;   MediaPlayer1.Notify:=True ; end; procedure Tpropotivce.Button11Click(Sender: TObject); begin    CopyFile(pchar(edit10.Text),pchar(wjm),false); end;

dok001 · 2003-01-11

将原码贴上,请高人指点: unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Spin, MPlayer; type   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     Button2: TButton;     MediaPlayer1: TMediaPlayer;     OpenDialog1: TOpenDialog;     SpinEdit1: TSpinEdit;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Button3: TButton;     Button4: TButton;     Button5: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Edit1Change(Sender: TObject);     procedure SpinEdit1Change(Sender: TObject);     procedure Button3Click(Sender: TObject);     procedure Button4Click(Sender: TObject);     procedure Button5Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   wjm:string; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin opendialog1.InitialDir:='C:/';   OpenDialog1.Filter := '声音文件Midi files(*.mid)|*.MID';   if OpenDialog1.Execute then    begin     Edit1.Text:=OpenDialog1.FileName;     MediaPlayer1.FileName:=OpenDialog1.FileName ;     MediaPlayer1.AutoOpen:=True ;     MediaPlayer1.open;     MediaPlayer1.Notify:=True ;    end; end; procedure TForm1.Button2Click(Sender: TObject); begin   CopyFile(pchar(edit1.Text),pchar(wjm),False); end; procedure TForm1.Edit1Change(Sender: TObject); begin    Label2.Caption:=SpinEdit1.Text;   wjm:='C:/Program Files/slbh/'+SpinEdit1.Text+'.mid';   trim(wjm);   MediaPlayer1.FileName:=wjm;   MediaPlayer1.AutoOpen:=True ;   MediaPlayer1.open;   MediaPlayer1.Notify:=True ; end; procedure TForm1.SpinEdit1Change(Sender: TObject); begin   Label2.Caption:=SpinEdit1.Text;   wjm:='C:/Program Files/slbh/'+SpinEdit1.Text+'.mid';   trim(wjm);   MediaPlayer1.FileName:=wjm;   MediaPlayer1.AutoOpen:=True ;   MediaPlayer1.open;   MediaPlayer1.Notify:=True ; end; procedure TForm1.Button3Click(Sender: TObject); begin MediaPlayer1.FileName:=edit1.Text;   MediaPlayer1.AutoOpen:=True ;   MediaPlayer1.open;   MediaPlayer1.Notify:=True ; end; procedure TForm1.Button4Click(Sender: TObject); begin MediaPlayer1.FileName:=wjm;   MediaPlayer1.AutoOpen:=True ;   MediaPlayer1.open;   MediaPlayer1.Notify:=True ; end; procedure TForm1.Button5Click(Sender: TObject); begin CopyFile(pchar(edit1.Text),pchar(wjm),false); end; end.

delphifans_hx · 2003-01-11

都被人回答了

dok001 · 2003-01-11

终于试出来了,就是有的可准确替换,有的不能用这种方法替换,哪位高人能解释一下,并请示范其它替换办法!!!

nblkk · 2003-01-12

用 if fileexist(edit1.text) then 判斷文件是否存在 用 if copyfile(..) then 判斷是否成功 如果不成功,可能是 1.目的文件檔名錯誤,例如不存在的資料夾,或檔案有*或?字元 2.無法寫入(網路權限,空間不足) 3.目的文件已被其他程式開啟,未關檔 請用getlasterror及formatmessage查看錯誤訊息(WinApi)

ranxg · 2003-02-07

{This way uses a File stream.} Procedure FileCopy( Const sourcefilename, targetfilename: String ); Var   S, T: TFileStream; Begin   S := TFileStream.Create( sourcefilename, fmOpenRead );   try     T := TFileStream.Create( targetfilename,                              fmOpenWrite or fmCreate );     try       T.CopyFrom(S, S.Size ) ;     finally       T.Free;     end;   finally     S.Free;   end; End; {This way uses memory blocks for read/write.} procedure FileCopy(const FromFile, ToFile: string);  var   FromF, ToF: file;   NumRead, NumWritten: Word;   Buf: array[1..2048] of Char; begin   AssignFile(FromF, FromFile);   Reset(FromF, 1);  { Record size = 1 }   AssignFile(ToF, ToFile); { Open output file }   Rewrite(ToF, 1);  { Record size = 1 }   repeat     BlockRead(FromF, Buf, SizeOf(Buf), NumRead);     BlockWrite(ToF, Buf, NumRead, NumWritten);   until (NumRead = 0) or (NumWritten <> NumRead);   CloseFile(FromF);   CloseFile(ToF); end; {This one uses LZCopy, which USES LZExpand.} procedure CopyFile(FromFileName, ToFileName: string); var   FromFile, ToFile: File; begin   AssignFile(FromFile, FromFileName); { Assign FromFile to FromFileName }   AssignFile(ToFile, ToFileName);     { Assign ToFile to ToFileName }   Reset(FromFile);                    { Open file for input }   try     Rewrite(ToFile);                  { Create file for output }     try       { copy the file an if a negative value is returned }       { raise an exception }       if LZCopy(TFileRec(FromFile).Handle, TFileRec(ToFile).Handle) < 0         then         raise EInOutError.Create('Error using LZCopy')     finally       CloseFile(ToFile);  { Close ToFile }     end;   finally     CloseFile(FromFile);  { Close FromFile }   end; end;

dok001 · 2003-02-07

接受答案了.

用CopyFile拷贝文件出现怪事,现问题以有眉目!请高人破解指点!!! (93分)

dok001

Unregistered / Unconfirmed

lanbing1400

Unregistered / Unconfirmed

delphiland

Unregistered / Unconfirmed

dok001

Unregistered / Unconfirmed

del520

Unregistered / Unconfirmed

dok001

Unregistered / Unconfirmed

del520

Unregistered / Unconfirmed

dok001

Unregistered / Unconfirmed

dok001

Unregistered / Unconfirmed

delphifans_hx

Unregistered / Unconfirmed

dok001

Unregistered / Unconfirmed

nblkk

Unregistered / Unconfirmed

ranxg

Unregistered / Unconfirmed

dok001

Unregistered / Unconfirmed

Similar threads