,,,
-
( )
()
" "
: 1 MS Access
2007
1.
2.
3.
4.
, . .
, "1: " "". MS Access. , , , . , .
, .
, .. . . XML-.
2.Delphi. Windows 2000 .
, TCP/IP.
".exe". , :
1 -
" ", "IP " , .. . , "Connect", "Disconnect" .
" ". Access ( , ), , , XML-, , . , , . , , , () 1 (_1 = + _Access).
"", . : "", " " ..
:
2
, 1, , .
, , "1" XML- 1.
. "" . : " ", " 1" .. "" ( ).
3.2 : MS Access 1: . Delphi 7. Windows 2000 Delphi 7.
, (Client.exe), Client_U.pas (Server.exe), Server_U.pas.
Access "" "". "", "", "", "", "", "". "".
1C: "". "" , .
, TCP/IP.
: (Access 1 ), c XML-, .
, IP- , Access, , XML-, , . : Connect . ; XML-.
, , , XML-, 1. , : ; . " 1", XML- 1.
Access, XML- .
MS Access ADO c TADODataSet. , Access, ODBC, , , BDE.
ConnectionString ( ), (: 'Provider = Microsoft.Jet.OLEDB.4.0; Data Source = '+__+'; Persist Security Info=False'). CommandText SQL- (: select*from ).
XML- "" , "" . "" .
XML TXMLDocument, DOM (Document Object Model). XML- . - , , , ..
TXMLDocument , IXMLDocument ( ). XML : IXMLNodeList IXMLNode. "-" , , , . "" . access delphi
, .. XML- "-", Indy. TCT/IP. IP- , , . Indy . , , . , , .
Indy IdTCPClient ( ) IdTCPServer ( ). IP-, , . Connect, Disconnect. XML- . Send.
, 1C.
( , ). IdTCPServer , , . ( TIdPeerThread) . , , ( TListBox) DNS- , . .
XML- , .
1 OLE. . OLE 1 CreateObject('V77.Application'), OleVariant.
1, ( Initialize) , , . OleVariant ().
, , (try...except...end try...finally...end) . , , , , .
(. ), Access . "" , .
:
try
IdTCPClient1.Connect;
except
Memo1.Lines.Add(' ');
Exit;
end;
, OLE- 1:, 1. "" , .
, XML- "". , . , ( ), :
.
< >
.
< >
, 1, .
4.:
, Access ( ).
( ).
, 1, .
4 , .
1
2
3
4
"", "" ( 06.01.1998) Access. XML- (. 5) "", . , "" ( , - ) . .
5 XML-,
"" ( 6).
6 ""
Access "" ( 7).
7 ""
, , " 1" 1. , . , (, , ), . "" (8).
8 ""
9
10
9 10 , .
1. : Delphi. .: -, 2002. 464 .: .
2. .. Delphi. - .: "-", 2003.
3. 1. : www.mista.ru.
- (
Copyright (c) 2025 Stud-Baza.ru , , , .