文件传输问题,没分了,见谅~(0分)

一

一只菜鸟Olala

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-17

• #1

我添加了一些项到listbox,每一项是从一个表list中得到的两个字段值,list每一个记录对应了硬盘上的一个文件,文件存放的路径是固定的;希望得到的结果是listbox可以通过鼠标拉框或CTRL+鼠标进行多选,然后把选中的项所对应的文件传输到指定盘符,应该怎么解决呢?
PS:有人建议我用文件流TStreamFile来解决,可惜小弟看了半天没看懂,请详细指教一下,小弟罄尽所有了,已经没分了,抱歉抱歉.
PPS:问题的关键是如何取出LISTBOX中每一项的关键值,它的一项中一个值是和硬盘上存放的文件名相同的,我的思路是取出这部分后用复制功能,应该能行吧......

 

T

tianlove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-17

• #2

俺不懂 streamfile,帮你顶

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-17

• #3

呵呵：）不是TStreamFile而是TFileStream，或者可以用TMemoryStream类实例都可以实现的...

 

一

一只菜鸟Olala

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-17

• #4

在网上找到一段代码,是用TFileStream实现文件传输功能,没怎么明白,请指教~另外,在这段代码中应该怎么指定文件传输的目标路径啊?
代码如下
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;

 

I

idon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-17

• #5

最简单的是用 copyfile吧
用tfilestream的话 需要三步 :
1。打开要复制的文件 a := tfilestream.create(becopyedfilename, fmRead);
2。创建新文件 b := tfilestream.create(filename, fmcreate);
2.copyStream b.loadfromstream(a);

 

一

一只菜鸟Olala

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-17

• #6

COPYFILE?我去查查先,感谢idon的帮助~

 

一

一只菜鸟Olala

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-17

• #7

找到方法了,可是我应该怎么写copyfile语句才能使它具有在程序运行时才获取源文件的功能呢?

 

一

一只菜鸟Olala

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-17

• #8

接受答案了.