Internet实现文件复制的问题(分的问题好商量) (1分)

;

-_-;

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-22

• #1

比如,有很多共享的目录,并且以下面的形式在一个MEMO里面
"//61.183.64.1/SharedDocs"
"//61.183.64.2/C"
"//61.183.64.3/我的共享"


我要拷贝我的程序所在目录的一个文件,
他的文件名 放在edit1里面
拷贝MEMO里面第1行是
CopyFile(LPCTSTR(ExtractFilename(Application.exename)+Edit1.Text),LPCTSTR('61.183.64.1/SharedDocs'+Edit1.Text),False)


怎么才可以拷贝MEMO每一行的地址,MEMO的内容不是固定的,而且当要拷贝的文件过大时,怎么等一个文件COPY完了做COP下一个,或者谁能写成多线程的?

 

P

prosky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-22

• #2

拷贝MEMO每一行的地址
for i :=0 to memo1.Lines.Count-1 do
showmessage(memo1.Lines);
关于复制和等待一个文件COPY完了做COPy下一个用这两个api函数
SHFileOperation and WinExecAndWait32

 

幕

幕后黑手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-27

• #3

for i :=0 to memo1.Lines.Count-1 do
begin
CopyFile(LPCTSTR(ExtractFilename(Application.exename)+Edit1.Text),LPCTSTR('61.183.64.1/SharedDocs'+Edit1.Text),False);
Application.ProcessMessages;
end;

对了,用 Application.ProcessMessages;就会自动等了

 

;

-_-;

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-15

• #4

如果只是分的问题,尽管开口!

 

积

积步

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-16

• #5

借寶地一用：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2231392

 

F

fael

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-16

• #6

幕后黑手的最后一句总结可能有问题，如果按这个方法，系统将一古脑的拷完所有文件，而不会自动等待。