我希望在IDFTP的客戶端通過TcomboBOX來選擇服務器端的目錄，然后雙擊動態的進入到那個目錄，這個怎么設計啊？？？？
uj5u.com熱心網友回復：
用List獲取FTP服務器上的檔案和目錄串列函數原型為
procedure List(ADest:TStrings;Const ASpecifier:String;const ADetails:Boolean);
uj5u.com熱心網友回復：
這個我知道的啊。。。但是我雙擊以后再這個目錄里面傳東西的時候，服務器編譯這個代碼錯了，我把代碼發上來你看看：procedure TFServer.IdFTPServer1StoreFile(ASender: TIdFTPServerThread;
const AFileName: String; AAppend: Boolean; var VStream: TStream);
var
NewFile:String;
begin
//將FTP中使用的目錄符號“/”轉換為Windows中的目錄符號 “\”
NewFile :=ChangeFolderChar(WorkDirectory.Text+AFileName);
//在FTP服務器中建立相應檔案，并指定該檔案的訪問介面
VStream:=TFileStream.Create(NewFile,fmCreate);
end;
Function ChangeFolderChar(Str:String):String;
//將FTP中使用的目錄符號“/”轉換為Windows中的目錄符號 “\”的函式
var
I:Integer;
mystr : string;
begin
For I:=0 to length(Str)-1 do
begin
if Str[I]='/' then
Str[I]:='\';
end;
Result:=Str;
end;
然后執行以后newfile不對正常的是C:\檔案夾\a.txt這里變成了C:\\\檔案夾\a.txt然后就報錯無法找到這個目錄
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/143643.html
標籤：網絡通信/分布式開發