ÕâЩdelphi ´úÂëÔõôת¸ø BCB
ÎÒ¶Ôdelphi²»´óÊìϤ£¬ µ«ÍøÂçÉÏdelphiµÄ´úÂë¶à£¬BCBµÄÉÙ£¬ÏëÕÕ×ÅdelphiµÄ´úÂë¸Ä³ÆBCBµÄ£¬µ«Óöµ½Ò»Ð©¶îÎÊÌâ²»ÖªÔõôתΪ£Â£Ã£Â¡£¡¡ÏÂÃæÊÇժ¼һЩ¼ò¶ÌµÄ¡£
(1)
type
IXMLDOMImplementation = interface;
IXMLDOMImplementationDisp = dispinterface;
(2)
IXMLDOMNamedNodeMapDisp = dispinterface
['{2933BF83-7B36-11D2-B20E-00C04F983E60}']
function removeNamedItem(const name: WideString): IXMLDOMNode; dispid 85;
property item[index: Integer]: IXMLDOMNode readonly dispid 0; default;
property Value:Integer WriteOnly Write fValue Stored True nodefault;
property MyImplClass: TMyImplClass read FMyImplClass implements IMyInterface; //ÆäÖÐ typeIMyInterface = interface
end;
(3)
IXMLDOMNode = interface(IDispatch)
['{2933BF80-7B36-11D2-B20E-00C04F983E60}']
//....
end;
IID_IXMLDOMImplementation: TGUID = '{2933BF8F-7B36-11D2-B20E-00C04F983E60}';
(4)
function MessageBox(HWnd: Integer; Text, Caption: PChar; Flags: Integer): Integer; external 'user32.dll' name
'MessageBoxA'; message ID_REFRESH ;abstract; Assembler; cdecl; Dynam
Ïà¹ØÎÊ´ð£º
ÈçºÎʵÏÖdelphi Ìá½»±íµ¥
ÎÒµÄ˼·ÊÇ webbrowser1 ´ò¿ª ¹È¸è
È»ºó Êó±ê µã»÷µ½ ËÑË÷ÀïÃæ
È»ºó ÊäÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö È»ºó µã»÷ ËÑË÷
ÎÒÏÖÔÚ¾ÍÊÇ ÈçºÎ ÌíÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö ²»» ......
Åöµ½Ò»¸öÆæ¹ÖµÄÎÊÌ⣺
ÎÒ´Ó·þÎñ¶ËÈ¡µ½Ò»¸ö×Ö·û´®±£´æÔÚ±äÁ¿SÖУ¬ÎÒÒªÓÃSÆ´³ö×Ô¼ºÒªµÄÒ»¸ö×Ö·û´®£¬Èç
<Name>S </name>;µ«ÊÇÏÖÔÚ½á¹ûÏÔʾ³öÀ´ÓÐʱºò»á±ä³ÉÕâÑù£º <Name>S?/name>;
ºÃÏñ ......
//ÎÒÔÚtype¶¨ÒåÒ»¸ötmyarray
type
tmyarray= array[0..255] of integer;
...
function myfun1(a:integer):tmyarray;
function myfun2(pt:array of integer):boolean;
//myfun2 ÒªÓõ½ ......
³ÌÐòÀï·ÅÖÃÒ»¸öWebBrowser£¨ÔÚInternetÒ³ÃæÀȻºó£º
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.baidu.com');
end;
ÇëÎÊÒ»ÏÂÈçºÎ¿Ø ......
ÏÖÔÚÓиöÎļþ£¬Îļþ±È½Ï´ó£¬ÐèÒªÖ±½ÓǶÈëµ½exeÖУ¬ÔÚ³ÌÐòÖÐʹÓ㨷Ç×ÊÔ´ÎļþÐÎʽµÄǶÈ룩
×îºóʵÏÖµÄЧ¹ûÀàËÆÓÚÕâÑù¡£
ÆäÖÐÎļþµÄÄÚÈÝÖ±½ÓǶÈëµ½ÁË´úÂë¶Î1Ö®ºó£¬¼ÙÉèÎļþÄÚÈݵÄÊ×µØÖ·ÊÇaddr£¬ÄÇôÔÚ´ú ......