| iuiuiu1818
39641
|
2010/3/5 20:13:41 |
| 呵呵 我也下在下来学习 我是新手哦 |
| grjs_2004
36420
|
2008/12/18 19:54:57 |
gengzy的代码使上传的文件很大
简练一下,上传的文件跟原来的文件大小一样!压缩包也是!
procedure TMain.N2Click(Sender: TObject);
var
name1, name2 : string;
i, s : integer;
tStream : TFileStream;
begin
name1:=ListViewfilelocal.Selected.Caption;
name2:=ComboBoxfilelocal.Text+ListViewfilelocal.Selected.Caption;
if idFtp1.size(name1)<>-1 then //判断FTP上是否存在某文件
Formmesup.ShowModal
else
begin
try
tStream := TFileStream.Create(name2, fmOpenRead);
tStream.Position := tStream.Size;
idftp1.TransferType:=ftbinary; //uses IdFTPCommon
IdFTP1.put(tStream,extractfilename(name2),false);
finally
tStream.Free;
chagedir(sender);
end;
end;
end; |
| grjs_2004
36415
|
2008/12/18 16:00:27 |
| 能不能做得象FTP Explorer，可以支持文件鼠標拖放。從本地機器拖放到服務器(上傳)，從服務器拖放到本地機器(下載)。文件目錄瀏覽跟Windows的瀏覽方式一樣！ |
| oloveudyq
36408
|
2008/12/17 11:48:28 |
| 非常感谢gengzy ！ |
| gengzy
36406
|
2008/12/17 10:07:47 |
添砖了；
procedure TMain.N2Click(Sender: TObject);
var
name1,name2:string;
i,s:integer;
tStream: TFileStream;
upFileSize : integer;
MyStream:TMemoryStream;
buf:array[0..4096] of byte;
begin
name1:=ListViewfilelocal.Selected.Caption;
name2:=ComboBoxfilelocal.Text+ListViewfilelocal.Selected.Caption;
tStream := TFileStream.Create(name2, fmOpenRead);
MyStream:=TMemoryStream.Create;
idftp1.TransferType:=ftbinary;
upFileSize := idFtp1.size(name1);
if upFileSize = -1 then
begin
s:=tStream.Read(buf,sizeof(buf));
MyStream.Write(buf,s);
IdFTP1.put(MyStream,extractfilename(name2),false);
upFileSize := s;
end;
try
tStream.Position := upFileSize;
s:=tStream.Read(buf,sizeof(buf));
while s <> 0 do
begin
MyStream.Write(buf,s);
IdFTP1.put(MyStream,extractfilename(name2),True);
s:=tStream.Read(buf,sizeof(buf));
end;
finally
tStream.Free;
MyStream.Free;
chagedir(sender);
end;
end; |
| id520
36402
|
2008/12/16 21:04:30 |
| 断点 嘿嘿 学习去了 谢了！ |
![]() |
|
