2010 Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 2007 Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 2006 Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 2005 Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 2004 Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 2003 Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 2002 Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 2001 Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec

advanced search
	ASTA in 60 seconds
	Developer details
	Free Internet tools
	Demos
	Business views
	White papers
	Tutorial center
	Testimonials
	Asta online help

DataSnap support from Palm and WinCE

The ASTA Technology Group is pleased to announce a new product, that allows for DataSnap Servers to be accessed from Pda Clients including Palm, WinCE and Linux Pda's. This is accomplished by running an AstaSkyWirePdaSnap Proxy server that communicates with remote SkyWire Clients and connects directly to the DataSnap Server using TClientDataSet.

ASTA supports many non-vcl clients using the most popular development tools. These include Palm, Wince, Java, and Linux clients. A Current list can be found at http://www.astawireless.com/products/skywire/clients/ 

The goal of PdaSnap is to allow for DataSnap users to be able to code dataSnap servers as they normally would but to make their remote procedures accessible to remote non-vcl clients using such tools as PocketStudio and embedded Visual Basic for PocketPC. To this end, an ASTA ProxyServer is run, either on the same machine as the DataSnapServer, compiled in the DataSnap server or on a different machine.

This technology is not limited to DataSet but includes any COM method available on a remove server. Multiple Servers can be seen as "one" server to remote SkyWire Clients.

Below is some Delphi code from a sample DataSnap Server that can now be called, securely and efficiently via SkyWire Clients from such tools as PocketStudio, NSBASIC and AppForge.

procedure TTestMod1.Method1(var Param1IN: WideString);
begin
  Param1IN := Param1IN + DAteTimeToStr(now);
end;

procedure TTestMod1.Method2(out Param1: WideString);
begin
  Param1 := IntToStr(GetTickCount);
end;

function TTestMod1.Get_Property1: WideString;
begin
  Result := FValue;
end;

procedure TTestMod1.Set_Property1(const Value: WideString);
begin
  FValue := Value;
end;

procedure TTestMod1.Method3(var A1: Integer);
begin
  a1 := a1 + 1;
end;