以下为用 BCB+Indy 开发上传档案至 BDG 空间的范例,此为开发任一空间上传器的根本,
如果可以理解的以下程式码的话,就可以开发其它空间的上传器了,就像无限梦龙的上传器一样,
希望有多一点高手可以开发出许多空间的上传器出来造福群众。
若是各位觉得不错,请不要吝啬送我一朵花好吗 ^_^
String KeyString1="
String DownloadURL;
bool DownloadURL_OK=false;
bool Error=false;
TIdMultiPartFormDataStream *MultiPartFormDataStream=new TIdMultiPartFormDataStream;
IdHTTP1=new TIdHTTP(0);
IdHTTP1->AllowCookies=false;
TStringList *MM=new TStringList;
IdHTTP1->Request->AcceptEncoding="";
IdHTTP1->Request->UserAgent="Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)";
IdHTTP1->Request->AcceptLanguage="zh-tw";
IdHTTP1->Request->Connection="Keep-Alive";
IdHTTP1->Request->CacheControl="no-cache";
//连线到 中取得网页内容
try
{
MM->Text=IdHTTP1->Get(");
}
catch(...)
{
Error=true;
}
if(!Error)
{
//准备取得子页的连结网址
String ActionKeyString0="<IFRAME SRC=\"";
String RealConnURL="";
int Pos0;
for(int i=0;i<MM->Count;i++)
{
Pos0=MM->Strings[ i ].Pos(ActionKeyString0);
if(Pos0)
{
String tmpString=MM->Strings[ i ].SubString(Pos0+ActionKeyString0.Length(),MM->Strings[ i ].Length());
RealConnU ..
访客只能看到部份内容,免费 加入会员 或由脸书 Google 可以看到全部内容