delphi °´Å¥¹ý³ÌÒÀ´ÎÖ´ÐеÄÎÊÌâ
delphi °´Å¥¹ý³ÌÒÀ´ÎÖ´ÐеÄÎÊÌâ
ÎÒÏÖÔÚÓÐ 5¸ö °´Å¥ ÿ¸ö°´Å¥¶¼ÓÐÒ»¸ö¹ý³Ì
ÎÒÏë Óà µÚ6¸ö°´Å¥ µã»÷µã»÷µÚÒ»´Î Ö´ÐÐ button1 µÚ¶þ´Î Ö´ÐÐ button2 Èý´Î button3 Ò»Ö±µ½ button5 ÈçºÎʵÏÖÄØ£¿£¿
Delphi(Pascal) code:
button1.OnClick(self);
button2.OnClick(self);
button3.OnClick(self);
button4.OnClick(self);
button5.OnClick(self);
Delphi(Pascal) code:
ÏÂÃæÊǸù¾Ýº¯ÊýÃû³ÆÖ´Ðк¯ÊýµÄ·½·¨£¬Äã°ÑÕâ¸öÑ»·¸Ä³É¸ù¾ÝiµÄÖµ£¬µ¥²½µÄÖ´ÐоÍÐÐÁË
var
p:Pointer;
i:integer;
begin
for i := 1 to 3 do
begin
p := MethodAddress('Button'+IntToStr(i)+'Click');
if p = nil then Continue;
asm
call p;
end;
end;
end;
Ïà¹ØÎÊ´ð£º
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
ÎÒÏÈÓÃidhttp µÄget·½·¨·ÃÎÊÒ»¸öÍøÕ¾£¬ÍøÕ¾·µ»ØÁËÒ»¶Îcookie£¬µ±ÎÒ µ÷Óà idhttp post·½·¨µÄʱºò£¬ÎÒÈçºÎ°Ñ·þÎñÆ÷·µ»ØµÄÕâ¶Îcookies´øÉÏ £¬ÏÈлл¸÷λÁË
¶ÁÈ¡ HTTP Response Header
ÀïÃæÓÐ Set-Cookies Óò ......
ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......
ÓÐʲô¹¹ÏëÌÖÂÛһϡ£
ÕâÀà¶«Î÷Ö÷ÒªÊÇÈËÆøºÍ½çÃæ»¨ÉÚ,¼¼ÊõÉÏûʲôÄѵã.
ÕâÎÒÖªµÀ£¬ÄǼ¼ÊõÉϵÄÄØ£¿ÓÐûÓй¹ÏëһϸÃÔõôÉè¼Æ£¿Ö÷ÒªÊÇdelphi×ÔÉíÄܲ»Äܹ»Íê³É£¬Èôͬʱ´óÁ¿¿Í»§µÇ½£¬·´Ó¦ËÙ¶ÈÈçºÎµÈµÈ¡£
ÒýÓÃ
......
¸÷λ´óϺ£¬Ð¡µÜÓõÄÊÇADOÁ¬½ÓACCESSÊý¾Ý¿â£¬ÓÃDBGridÏÔʾ²éѯµÄÊý¾Ý£¬ÎÒ×öµÄÊǸöÊý¾Ý²É¼¯ÏµÍ³£¬¸ù¾Ý²»Í¬µÄµØÖ·°ÑÊý¾Ý·ÅÔÚACCESSÊý¾Ý¿âÖв»Í¬µÄ±íÀïÃæ£¬ÏÖÔÚÎÒÏë²éѯijһ¶Îʱ¼äÄÚËùÓбíÄÚµÄÊý¾Ý£¬²¢ÇÒÔÚDBGridÖÐÏÔʾ³ ......