|
こんばんは、Delphi2010で格闘しております。
たてぐやさんの座右の銘は、響きますな〜。
ここに書き込もうと思ったら、直前の書き込み。
肝にめいじます。
話変わりまして、マスターのところのサンプルプログラムを
バリバリ活用させていただいております。
ありがとうございます。
windows7(32bit) + Delphi2010(32bit) + 付属のindyにて
いろいろ試していました。
サンプルプログラム 773_Indy_FTPGetPut
の01のなかで
>> FileSize := IdFTP1.Size(SourceFile);
>> //ファイルのサイズが取得できたら実行
>> //他の確認方法があるかも知れない
この部分がうまくいかず-1が帰ってきます。
そこでベタですが、
//目的のファイルがあるディレクトリに移動
IdFTP1.ChangeDir(FTP_Root_Dir+target_dir);
IdFTP1.List;
if Assigned(IdFTP1.DirectoryListing) then
begin
for i:=0 to IdFTP1.DirectoryListing.Count-1 do
begin
AFTPItem := IdFTP1.DirectoryListing.Items[i];
if (AFTPItem.FileName)=fname then
begin
FTP_FileSize := AFTPItem.Size;
break;
end;
end;
end;
などとしてサーバ上のファイルサイズを調べています。
ここでついでに、お聞きしたいことがあるのですが、
サーバのデフォルト言語はUTF-8にしてあり、希にある日本語のファイルを
取得してリストボックスなどに入れると文字化けしてしまいます。
JPFileName := utf-8toJP(AFTPItem.FileName);
^^^^^^^^^
みたいな何か魔法はないでしょうか?
よろしくお願いします。
|