ÇóÖú£º½«¼¸¾äDelphi´úÂë·ÒëΪBCB´úÂë¡£
TXXXX = class(TInterfacedObject, IOleObject, IViewObject)
private
// IOleObject
function SetClientSite(const clientSite: IOleClientSite): HResult; stdcall;
...
// IViewObject
...
end;
ÕâÑùµÄDelphiÀàÈçºÎ·ÒëΪBCBµÄ´úÂ룿
×¢£ºIOleObject, IViewObject¾ùΪCOM½Ó¿Ú¡£
DelphiÔ´Âë¿ÉÒÔÔÚBCBÖÐÖ±½Ó±àÒë¡£
Ïà¹ØÎÊ´ð£º
IF THEN ELSEÖжà¸öÌõ¼þÔõôд£¬È磺×Ö·û´®S1£¬S2£¬S3£¬S4¾ùÒª²»Îª¿Õ¡£
ÔõôÑù°ÑËüдµ½IFÖÐÈ¥£¿
Çë¸÷λ°ï°ï棬лл£¡
if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then
begin ......
delphiÈçºÎ»ñÈ¡ÍøÒ³µÄ·µ»Ø×´Ì¬£¬¾ÍÏñä¯ÀÀÆ÷Öзµ»ØµÄhttp 500´íÎó£¬404´íÎóµÈ
ÁíÍâÄܲ»ÄÜ»ñÈ¡µ½´ò¿ªÒ»¸öÍøÒ³µÄ·´Ó¦Ê±¼ä£¬¿ÉÒÔ´óÖ²ο¼ÍøÒ³´ò¿ªµÄËÙ¶È
лл£¡
¶¼¿ÉÒÔʵÏֵ쬾ßÌåµÄÄ㻹ÊDzé×ÊÁϰɣ¡
×Ô¼º ......
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.google.com', False);
xml.Send;
xml.responseText;
ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......
ÈçÌ⣡
ÔÚDelphiÀïÃæµ÷ÓÃÎÒC#дµÄÒ»¸ö¿ÉÖ´ÐгÌÐò£¬È»ºóÔËÐÐDelphiµÄÓ¦ÓóÌÐòµÄʱºò£¬ÓкܴóµÄ¸ÅÂʵ÷Óò»ÉÏC#дµÄÓ¦ÓóÌÐò¡£
´úÂë¿Ï¶¨Ã»ÓÐÎÊÌâ¡£ÓÐʱºòÄܵ÷ÓÃÉÏ£¬ÓÐʱºòµãÁËûÓз´Ó¦£¬¼´²»Äܵ ......