ËÄܰïæ°Ñdelphi³ÌÐò¶Î·Òë³ÉC#µÄ£¿
´úÂëÈçÏ£º
unit DllExport;
interface
uses
windows, SysUtils;
type
TKzString = packed record
returnlength: byte; //?????
returnstring: array[0..255] of char;
end;
TReturnParam = packed record
lx: byte; //ÃüÁîÀàÐÍ
mon: integer; //¼àÊÓÆ÷ºÅ
cam: integer; //ÉãÏñÍ·ºÅ
controlindex: integer; //¾µÍ·¿ØÖÆÀàÐÍ
Runtime: integer; //¾µÍ·¿ØÖÆÊ±¼ä£¬0ΪֱÖÁÊÕµ½ÏÂÒ»¸ö¿ØÖÆÃüÁÆäËüΪ¶¯¶à³¤Ê±¼ä
param1, param2, param3, Param4: integer; //¾µÍ·¿ØÖƵIJÎÊý
end;
//lx=1 ѡȡmon,
//lx=2 ѡȡCam
//lx=3 ½«CamÇÐÖÁMON
//lx=4 ¾µÍ·¿Øµô
//¾ØÕó¿âÃüÁî
function GetVideoMatrix(site, mon, cam, keyid: integer; var kzString: TkzString): boolean; stdcall; //
//µÃµ½¾ØÕóÇл»ÃüÁî
//ÊäÈë mon,cam ¼àÊÓÆ÷ºÅºÍ¾µÍ·ºÅ
//keyID¼üÅÌIDºÅ
//Êä³ö kzstring,²»³¬¹ý255
function GetAudioMatrix(site, mon, cam, keyid: integer; var kzString: TkzString): boolean; stdcall;
function NeedGetMonitor(): boolean; stdcall;
function GetMonitor(site, mon,cam, keyid: integer; var kzString: TkzString): boolean; stdcall;
function GetControlCode(site,mon, cam, controlindex, param1, param2, param3, Param4, keyid: integer; var sendnostop: Boolean; var ConTime: Integ
Ïà¹ØÎÊ´ð£º
txt ºÍXML ¸ñʽÏàÓ¦
²»½èÖúDataSet
µ¼Èë¶ÁÈ¡TXTÎļþ
È»ºóÖ±½ÓдÈëXML(ͬһÎļþ,²»Í¬Êý¾Ý,µÝÔöÔÊý¾ÝûÓб»¸²¸ÇÇé¿öÏÂÔö¼ÓÊý¾Ý.)
½Ì¸öÒªµã»ò×îºÃÊÇÓиö´úÂëÌáʾµÄ
¹ý·ºÃºº °ï¸öæÈö^^
²»»á£¬°ïÂ¥Ö÷ ......
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
ÆäʵÕâ¸öÎÊÌâ¿ÉÒÔÕÒÀÏʦ»Ø´ð£¬Õâ²»·Å¼ÙÁËÂð£¬ÎÊÎʸ÷λ¸ßÊÖ¡£
¾ø¶ÔÓÐ £¬ASP¡¢netÀïÓкöàµÄÂß¼Åжϵȶ¼ÐèÒªwinform»ù´¡
C#ÓïÑÔ
Ado.net C/S½á¹¹
Asp.net B/S½á¹¹
Á©¶¼ÊÇ΢Èí³öµÄ£¬¶¼ÄÜÓÃC#½øÐпª·¢ ......
Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
Ŀǰ¹«Ë¾ÔÚ×öÆäËû¹«Ë¾µÄC/SÈí¼þµÄ´úÀí£¬ÏÖÔÚÏë·ÂÕÕËûµÄ²úÆ·×Ô¼º×ö£¬Ö»Êǹ¦ÄÜ·ÂÕÕ¶øÒÑ£¬²»Çå³þËûÃÇÊÇÓÃʲô¼¼Êõ¿ª·¢µÄ£¬ÎÒÃÇÓÃwinform¿ª·¢ÁËÏàËÆµÄ¹¦ÄÜ£¬ËûÃǵÄÔ´´úÂëÎÒÃÇûÓУ¬Òò´ËÔÚÔ´´úÂëÉÏûÓзÂÕյĿÉÄÜÐÔ£¬ÎÒÃÇ ......