受不了bcb了,给我一个使用它的理由吧
取的网页内容,使用M$ wininet 控件
Delphi 中只要一句
Memo1.Text :=Inet1.OpenURL ('http://www.aaa.com/bbb.asp',0);
VB中也是同样的一句
看看bcb,一堆代码,编译通过,调试出错
谁能给一个bcb调用wininet控件的例子啊?
OleVariant url= "http://www.aaa.com/bbb.asp";
AnsiString datatype=(long)0;
Inet1->OpenURL(url,sTov(datatype));
}
//---------------------------------------------------------------------------
OleVariant __fastcall TForm1::sTov(AnsiString str1)
{
//TODO: Add your source code here
char *str2;
OleVariant myvar;
str2=str1.c_str();
int n=StrLen(str2);
myvar=VarArrayCreate(OPENARRAY(int,(0,n-1)),varByte);
for(int i=0;i<n;i++)
myvar.PutElement(str2[i],i);
return myvar;
}