Tengo un Tclientdataset que llena una grilla en un form de un datasnap server para conocer los usuarios que se conectan
Código Delphi
[-] procedure TServerContainer1.DSServer1Connect(
DSConnectEventObject: TDSConnectEventObject);
var
PublicIP,Port:string;
begin
PublicIP := DSConnectEventObject.ChannelInfo.ClientInfo.IpAddress;
Port:= DSConnectEventObject.ChannelInfo.ClientInfo.ClientPort;
ShowMessage(PublicIP);
with cdslistado do
begin
Open;
Insert;
FieldByName('ip').AsString:=PublicIP;
Post;
end;
end;
Como se ve arriba si hago un showmessage este decuelve la ip de mi maquina(estoy probando en local). POero porque la grilla no se llena? el dataset tiene la ip y el usuario, pero este ultimo no lo he podido obtener pero queria momentáneamente agregar la ip.
El dataset es temporalo osea coloque dos campos internalCalc y utiliza createdataset, luego obviamente un datasource.
Saludos