Hi Andrew,
There are a few units that you need to use to register the appropriate
classes etc. I don't have a clear example of what you need but here are some
units that we have in our uses:
tiConstants
tiQueryRemote
tiHTTP
tiHTTPMSXML
tiHTTPIndy
tiQueryXMLLight
tiQuery
tiPersistenceLayers
tiDBConnectionPool
tiXML
tiOPFManager
And how to connect:
lParams: string;
lsl := TStringList.Create ;
try
lsl.Values[CHTTPURL] := GetAppServerURL ;
lsl.Values[CHTTPConnectWith] := GetConnectWith ;
lsl.Values[CHTTPProxyServerActive] :=
LowerCase(tiBoolToStr(GetProxyServerActive));
lsl.Values[CHTTPProxyServerName] := GetProxyServerName;
lsl.Values[CHTTPProxyPort] := IntToStr(GetProxyServerPort);
lsl.Values[CHTTPBlockSize] := IntToStr(GetBlockSize);
lsl.Values[CHTTPRetryLimit] := IntToStr(GetRetryLimit);
lsl.Values['optxmldbsize'] := 'true';
lParams := lsl.CommaText;
finally
lsl.Free;
end;
gTIOPFManager.TestThenConnectDatabase(
GetAppServerURL, 'null', 'null', lParams, cTIPersistRemote);
Our 'Get' functions above retrieve connection params from an INI file.
Example params:
url=http://servername
connectwith=HTTPIndy
proxyserveractive=0
proxyservername=
proxyport=0
blocksize=50000
retrylimit=3
Hope that helps.
Regards,
Jarrod Hollingworth
------------------------------------------------------------------------------
This SF.net email is sponsored by Sprint
What will you do first with EVO, the first 4G phone?
Visit sprint.com/first -- http://p.sf.net/sfu/sprint-com-first
_______________________________________________
tiOPF-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tiopf-talk
