Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

DB2 ºÍ Delphi 7 — SOAP ºÍÊý¾Ý¿â Web ·þÎñ

 ¹¹½¨ Windows SOAP ·þÎñÆ÷Ó¦ÓóÌÐò
Ê×ÏÈÔÚ Windows ÉϹ¹½¨·þÎñÆ÷£¬È»ºóÔÚ Linux ÉϹ¹½¨¿Í»§»ú¡££¨Èç¹ûÐèÒª£¬¿ÉÒÔʹÓÃÆäËü·½·¨ — »òÕß½«ËüÃÇÈ«²¿¹¹½¨ÔÚ Windows »ò Linux ÉÏ¡££©¶ÔÓÚ Windows SOAP ·þÎñÆ÷£¬Æô¶¯ Delphi 7 Enterprise£¬Ö´ÐÐ File -> New -> Other£¬×ªÖÁ¶ÔÏó×ÊÔ´¿â£¨Object Repository£©µÄ Web ServicesÑ¡Ï¡£
ͼ 1. Delphi 7 ¶ÔÏó×ÊÔ´¿â
 
Òª½« DataSnap? Ó¦ÓóÌÐò¹¹½¨³É¿çƽ̨µÄ Web ·þÎñ£¬Ë«»÷ SOAP Server Application ͼ±ê£¬Õ⽫Æô¶¯ÏàÓ¦µÄÏòµ¼¡£
ͼ 2. ´´½¨Ð嵀 SOAP ·þÎñÆ÷Ó¦ÓóÌÐò
 
ͨ¹ýʹÓà Delphi 7£¨ÔÚ Windows ÉÏ£©£¬ÏÖÔÚ¿ÉÒÔ´Ó ISAPI/NSAPI DLL¡¢Apache 1.x »ò 2.x DLL¡¢CGI ¿ÉÖ´ÐÐÎļþ»ò Web App Debugger ¿ÉÖ´ÐÐÎļþÖ®ÖнøÐÐÑ¡Ôñ¡£¿ÉÒÔʹÓúóÕß´Ó Delphi IDE Öе÷ÊÔÓ¦ÓóÌÐò£¨µ«²»Äܲ¿ÊðËü — ±ØÐ뽫Ëü¸ü¸Ä³ÉÆäËüÄ¿±êÖ®Ò»À´²¿Êð Web ·þÎñÆ÷Ó¦ÓóÌÐò£©¡£Í¨¹ýʹÓà Kylix 3£¨ÔÚ Linux ÉÏ£©£¬¿ÉÒÔÑ¡Ôñ Apache ¶¯Ì¬¹²ÏíÄ¿±ê£¨Apache Dynamic Shared Object£¬DSO£©Îļþ¡¢CGI ¿ÉÖ´ÐÐÎļþ»ò Web App Debugger ¿ÉÖ´ÐÐÎļþ¡£¶ÔÓÚ±¾Àý£¬Ñ¡Ôñ CGI ¿ÉÖ´ÐÐÎļþ£¬µ«ÔÚʵ¼ÊʹÓÃʱ£¬¿ÉÄÜҪѡÔñÒ»¸ö¸ü¸ßЧµÄ Apache »ò ISAPI/NSAPI DLL¡£Ñ¡Ôñºó£¬µ¥»÷ OK¡£ ´ËʱΪÄúÉú³ÉÁËÒ»¸öÐ嵀 SOAP ·þÎñÆ÷Ó¦ÓóÌÐòºÍ SOAP Web Ä£¿é¡£µ«ÔÚÄú¿ÉÒÔ¶ÔËü½øÐиü×ÐϸµÄÑо¿Ö®Ç°£¬»á¿´µ½Ò»¸öµ¯³ö¶Ô»°¿ò£¬Ñ¯ÎÊÄúÊÇ·ñÒªÁ¢¿ÌΪ SOAP Ä£¿é´´½¨Ò»¸ö½Ó¿Ú¡£
ͼ 3. ÒòΪÄúÕýÔÚ¹¹½¨Ò»¸öÌØÊâµÄ DataSnap SOAP ·þÎñÆ÷£¬ËùÒÔµ¥»÷ No
µ¥»÷ No£¬ÒòΪÄú²»ÏëÁ¢¿Ì¹¹½¨Ò»¸ö³£¹æµÄ Web ·þÎñÓ¦ÓóÌÐò¡£¶øÊÇÏëÒª¹¹½¨Ò»¸öÌØÊâµÄ DataSnap SOAP ·þÎñÆ÷¡£ÕýÈçÄúÔÚ Í¼ 4ÖÐËù¼ûµ½µÄÄÇÑù£¬SOAP Web Ä£¿éÒѾ­°üº¬ÁËÈý¸ö×é¼þ£º
THTTPSoapDispatcher THTTPSoapPascalInvoker TWSDLHTMLPublish ×é¼þ ÓйØÕâЩ×é¼þµÄ¸üÏêϸÐÅÏ¢£¬Çë²ÎÔÄÁª»ú°ïÖú£»ËüÃÇÖ÷ҪΪ DataSnap SOAP ·þÎñÆ÷Ö´ÐÐËùÓÐ SOAP ºÍ WSDL“̽²â£¨plumbing£©”ÈÎÎñ£¬ËùÒÔÄúÏÖÔÚ¿ÉÒÔ×ÅÖعØ×¢Êý¾Ý¿â±í£¬¶ø²»±Øµ£ÐÄÆäËüÊÂÇé¡£
´ø×é¼þµÄ SOAP Web Ä£¿é
½« SOAP Web Ä£¿é±£´æÔÚÎļþ SWebMod.pas ÖУ¬½«Õû¸öÏîÄ¿±£´æÔÚ D7DB2CGI.dpr ÖУ¨Õ⽫²úÉú D7DB2CGI.exe £©¡£ ÏÖÔÚÌí¼Ó SOAP Êý¾ÝÄ£¿é£¨SOAP Data Module£©À´Á¬½Ó DB2 Êý¾Ý¿â£¨Í¨¹ýʹÓöÔÏó×ÊÔ´¿âµÄ WebServices Ñ¡ÏÖеĵڶþ¸öͼ±ê£»»¹Çë²Î¼ûͼ1£©¡£ÔÚ SOAP Data Module Ïòµ¼ÖУ¬Ö»ÐèÒªÖ¸¶¨ÐÂÊý¾ÝÄ£¿éµÄÃû³Æ£»½«ËüÃ


Ïà¹ØÎĵµ£º

delphi ÓÑÔªÀà

 ÔÚÒ»¸öµ¥ÔªÖÐÉùÃ÷µÄ¶à¸öÀ໥ΪÓÑÔªÀà
type
TMyClass = class
GUID: string;
Name: string;
bSex: Boolean;
Tel : string;
end;
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedu ......

Delphi Éè¼Æģʽ£º¡¶HeadFirstÉè¼Æģʽ¡·Delphi7´úÂë

Ä£°å·½·¨Ä£Ê½¶¨ÒåÁËÒ»¸öËã·¨¹Ç¼Ü£¬ÔÊÐí×ÓÀà¶ÔËã·¨µÄij¸ö»òijЩ²½Öè½øÐÐÖØд£¨override)¡£
1.CoffeineBeverageWithHook
{¡¶HeadFirstÉè¼Æģʽ¡·Ö®Ä£°å·½·¨Ä£Ê½ }
{ ±àÒ빤¾ß: Delphi7.0 }
{ E-Mail : xshlife@163.com }

unit uCoffeineBeverageWithHook;

interface

uses
SysUti ......

Delphi TIniFile Àà ²Ù×÷iniÅäÖÃÎļþ

Delphi TIniFile Àà ²Ù×÷iniÅäÖÃÎļþ
2007Äê12ÔÂ08ÈÕ ÐÇÆÚÁù 09:56
Ò»¡¢ÓбØÒªÁ˽âINIÎļþµÄ½á¹¹£º
;×¢ÊÍ
[С½ÚÃû]
¹Ø¼ü×Ö=Öµ
...
---- INIÎļþÔÊÐíÓжà¸öС½Ú£¬Ã¿¸öС½ÚÓÖÔÊÐíÓжà¸ö¹Ø¼ü×Ö£¬ “=”ºóÃæÊǸùؼü×ÖµÄÖµ¡£
---- ÖµµÄÀàÐÍÓÐÈýÖÖ£º×Ö·û´®¡¢ÕûÐÍÊýÖµºÍ²¼¶ûÖµ¡£ÆäÖÐ×Ö·û´®´æÖüÔÚINIÎļþÖÐÊ±Ã»Ó ......

Delphi Éè¼Æģʽ£º¡¶HeadFirstÉè¼Æģʽ¡·Delphi7´úÂë

      ÈÝÆ÷µÄÖ÷ÒªÖ°ÔðÓÐÁ½¸ö£º´æ·ÅÔªËغÍä¯ÀÀÔªËØ¡£¸ù¾Ýµ¥Ò»Ö°ÔðÔ­Ôò£¨SRP£©Òª½«¶þÕß·Ö¿ª£¬ÓÚÊǽ«ä¯ÀÀ¹¦ÄÜ´ò°ü·â×°¾ÍÓÐÁ˵ü´úÆ÷¡£
      Óõü´úÆ÷·â×°¶Ô¶¯Ì¬Êý×éµÄ±éÀú£º
1.ÈÝÆ÷ÖеÄÔªËØÀà
{¡¶HeadFirstÉè¼Æģʽ¡·Ö®µü´úÆ÷ģʽ }
{ ÈÝÆ÷ÖеÄÔªËØÀà ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ