1,314
社区成员




//我这里没有FTP服务器 无法测试 你用
t2->DelimitedText = UTF8ToString(t1->Strings[i]) ;
t2->DelimitedText = UTF8ToUnicodeString(t1->Strings[i]) ;
//下面还有
extern PACKAGE int __fastcall UnicodeToUtf8 [[deprecated]](char * Dest, WideChar * Source, int MaxBytes)/* overload */;
extern PACKAGE unsigned __fastcall UnicodeToUtf8(char * Dest, unsigned MaxDestBytes, WideChar * Source, unsigned SourceChars)/* overload */;
extern PACKAGE int __fastcall Utf8ToUnicode [[deprecated]](WideChar * Dest, char * Source, int MaxChars)/* overload */;
extern PACKAGE unsigned __fastcall Utf8ToUnicode(WideChar * Dest, unsigned MaxDestChars, char * Source, unsigned SourceBytes)/* overload */;
extern PACKAGE RawByteString __fastcall UTF8Encode(const WideString WS)/* overload */;
extern PACKAGE RawByteString __fastcall UTF8Encode(const UnicodeString US)/* overload */;
extern PACKAGE RawByteString __fastcall UTF8Encode(const RawByteString A)/* overload */;
extern PACKAGE ShortString __fastcall UTF8EncodeToShortString(const WideString WS)/* overload */;
extern PACKAGE ShortString __fastcall UTF8EncodeToShortString(const UnicodeString US)/* overload */;
extern PACKAGE ShortString __fastcall UTF8EncodeToShortString(const RawByteString A)/* overload */;
extern PACKAGE WideString __fastcall UTF8Decode [[deprecated("Use UTF8ToWideString or UTF8ToString")]](const RawByteString S);
extern PACKAGE WideString __fastcall UTF8ToWideString(const RawByteString S);
extern PACKAGE UnicodeString __fastcall UTF8ToUnicodeString(const RawByteString S)/* overload */;
extern PACKAGE UnicodeString __fastcall UTF8ToUnicodeString(const char * S)/* overload */;
extern PACKAGE UnicodeString __fastcall UTF8ToUnicodeString(const ShortString &S)/* overload */;
extern PACKAGE UnicodeString __fastcall UTF8ToString(const RawByteString S)/* overload */;
extern PACKAGE UnicodeString __fastcall UTF8ToString(const ShortString &S)/* overload */;
extern PACKAGE UnicodeString __fastcall UTF8ToString(const char * S)/* overload */;
extern PACKAGE UnicodeString __fastcall UTF8ToString(char const *S, const int S_Size)/* overload */;
extern PACKAGE RawByteString __fastcall AnsiToUtf8(const UnicodeString S);
extern PACKAGE UnicodeString __fastcall Utf8ToAnsi(const RawByteString S);
extern PACKAGE UnicodeString __fastcall LoadResString(PResStringRec ResStringRec);
extern PACKAGE PUCS4Char __fastcall PUCS4Chars(const UCS4String S);
extern PACKAGE UCS4String __fastcall WideStringToUCS4String(const WideString S);
extern PACKAGE WideString __fastcall UCS4StringToWideString(const UCS4String S);
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *t1=new TStringList();
TStringList *t2=new TStringList();
IdFTP1->Connect();
if(IdFTP1->Connected())
{
ListView->Clear();
IdFTP1->List(t1,"",true); //只要ZIP的可用IdFTP1->List(t1,"*.zip",true);
//IdFTP1->Disconnect();
for(int i=0;i<t1->Count;i++)
{
t2->DelimitedText = t1->Strings[i] ;
Memo1->Lines->Add(t2->Strings[8]); //这个就是纯文件名
ListView->Items->BeginUpdate();
TListItem *ListItem;
ListItem = ListView->Items->Add();
ListItem->Caption =t2->Strings[8];
ListItem->SubItems->Add(t2->Strings[7]);
ListItem->SubItems->Add(t2->Strings[6]);
ListItem->SubItems->Add(t2->Strings[5]);
ListItem->SubItems->Add(t2->Strings[4]);
ListItem->SubItems->Add(t2->Strings[3]);
ListItem->SubItems->Add(t2->Strings[2]);
ListItem->SubItems->Add(t2->Strings[1]);
ListItem->SubItems->Add(t2->Strings[0]);
ListView->Items->EndUpdate();
}
}
delete t1;
delete t2;
}
try{
BytesToTransfer = IdFTP->Size(AnsiToUtf8(FileName));
IdFTP->Get(AnsiToUtf8(FileName),ExtractFileDir(Application->ExeName)+"\\UpDate\\"+FileName,true);
}
//extern PACKAGE UnicodeString __fastcall UTF8ToString(const RawByteString S)/* overload */;
String Str = UTF8ToString(yourLuanMa);