名前
題名
▼ たたみやさん > こんばんは、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); > 　　　　　　　^^^^^^^^^ > みたいな何か魔法はないでしょうか? > よろしくお願いします。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link