ASTA SkyWire
Think Wireless
astaskywire.com / Products / SkyWire™ SmartClient Toolkit / Clients / PocketStudio / Client Side Example

SkyWire
See also

View help online

Client-Side Example

Below is a small code example of creating an AstaConnection and connecting to a remote ASTA SkyWire™ server just to see if it is available. Note the UserName and Password is being set.

Var Conversation : Pointer;
     OK, BoolRes: boolean;
begin
   OK := false;
   AstaConnCreate(RefLib, Conversation);
   AstaConnSetTimeout(RefLib, Conversation, 1000);
   AstaConnSetAuthorizationOn(RefLib, Conversation,
     'Asta', 'Password', False);
   AstaConnOpen(RefLib, Conversation, Connection.IPAddr,
     Connection.Port, BoolRes);
   // try the server and see if it is available
   if BoolRes then
   begin
     AstaConnClose(RefLib, Conversation, BoolRes);
     Ok := true;
   end;

   . . .

end;
ASTA Technology Group
ASTA SkyWire
tel.: (208) 342-7800
Last modified: 2/24/2003 3:09:26 PM
© 1997-2004 Asta Technology Group
home search / site map