网络上资料好象混乱了，留个备份
TVariant *UR,*PD;
UR=URL;PD=PostData;
Variant v=UR;
Memo2->Lines->Add(v.AsType(varString));
if (PD!=NULL&&PD->vt==(VT_VARIANT|VT_BYREF)&&PD->pvarVal->vt!=VT_EMPTY)
{
char *szTemp=NULL,*szPostData;
long plLbound, plUbound;
SAFEARRAY *parrTemp=PD->pvarVal->parray;
SafeArrayAccessData(parrTemp,(void HUGEP **)&szTemp);
SafeArrayGetLBound(parrTemp , 1, &plLbound);
SafeArrayGetUBound(parrTemp , 1, &plUbound);
szPostData=new char[plUbound-plLbound+2];
StrCpyN(szPostData,szTemp,plUbound-plLbound+1);
szPostData[plUbound-plLbound] = '\0';
SafeArrayUnaccessData(parrTemp);
Memo2->Lines->Add(szPostData);
delete szPostData;
}