![sp_Feed](https://forum.prosysopc.com/wp-content/sp-resources/forum-themes/default/images/sp_Feed.png)
![sp_TopicIcon](https://forum.prosysopc.com/wp-content/sp-resources/forum-themes/default/images/sp_TopicIcon.png)
14:23, EEST
![Avatar](https://forum.prosysopc.com/wp-content/sp-resources/forum-avatars/defaults/userdefault.png)
March 21, 2012
![sp_UserOfflineSmall](https://forum.prosysopc.com/wp-content/sp-resources/forum-themes/default/images/sp_UserOfflineSmall.png)
Hello !
At runtime.
if Connector = nil then
Connector := TPSOPCConnector.create(nil)
else
begin
Connector.free;
Connector := TPSOPCConnector.create(nil);
end;
if client = nil then
client := TPsOPCServer.create(nil)
else
begin
client.free;
client := TPsOPCServer.create(nil);
end;
client.OnDisConnect := Client_KepwareDisconnect;
client.OnConnect := Client_KepwareConnect;
client.OnShutDown := Client_KepwareServerShutdown;
client.Host := mod_Application.OPCServerHostname;
IOL_Controller.OPC_CLIENT_STATE := 5;
IOL_Controller.OPC_CLIENT_STATE_T := ‘Connecting to: ‘ + client.Host;
client.servername := ‘DEMiC_OPC_SERVER_V100’;
client.UseCredentials := False;
client.OwnsGroups := true;
client.Log.FileName := ‘C:\Log1.txt’;
client.Log.Active := False;
client.OnError := ServerError;
client.OnStatusChange := nil; // PsOPCServer1StatusChange;
client.StatusInterval := 1000;
Connector.Clear;
FILL_GROUP1; // ADD Items to the Connector ca. 4000 Items.
Connector.AsyncRefreshInterval := 0;
Connector.OnError := PsOPCConnector1Error;
Connector.Async := true;
Connector.UpdateRate := 100;
Connector.Server := client;
try
client.Connect;
except
// Disconnect and Free[Memory increase]
Connector.Active := False;
Connector.Connected := False;
Connector.OPCGroup.Disconnect;
Connector.OPCGroup.Clear;
Connector.Server := nil;
if client.Connected then
client.Disconnect;
if Connector nil then
Connector.free;
if client nil then
freeandnil(client);
end;
How I must disconnect and Free the Items ?
Br,
Rainer
Most Users Ever Online: 518
Currently Online:
17 Guest(s)
Currently Browsing this Page:
1 Guest(s)
Top Posters:
Heikki Tahvanainen: 402
hbrackel: 142
pramanj: 86
Francesco Zambon: 83
rocket science: 82
Ibrahim: 76
Sabari: 62
kapsl: 57
gjevremovic: 49
Xavier: 43
Member Stats:
Guest Posters: 0
Members: 704
Moderators: 7
Admins: 1
Forum Stats:
Groups: 3
Forums: 15
Topics: 1482
Posts: 6316
Newest Members:
samui, TommyDab, wross, Jeremyknock, Pedromon, DonaldEdism, Miguelplese, Scotanine, katesalas95, PetertumModerators: Jouni Aro: 1015, Pyry: 1, Petri: 0, Bjarne Boström: 994, Jimmy Ni: 26, Matti Siponen: 330, Lusetti: 0
Administrators: admin: 1