GPRS modem应该有说明书,告诉你怎么拨号,建立连接!在DELPHI里执行拨号的执行程序就上网了!
接受数据:
在ServerSocket1里的OnClientRead事件中写
p:=nil; 定义字符指针
while Socket.ReceiveLength>0 do
begin
len:=Socket.ReceiveLength;
GetMem(p,len);
try
Socket.ReceiveBuf(p^,Socket.ReceiveLength);
ipcount:=ServerSocket1.Socket.ActiveConnections;\\连接数
sbuf:=StrPas(p);
ipaddr:=Socket.RemoteAddress;\\获得对方IP
finally
FreeMem(p);
发数据:
for i:=0 to ipcount-1 do
if ipaddr=自己知道的IP
ServerSocket1.Socket.Connections[i].SendText();
好久以前写得,希望对你有些帮助。加点分鼓励鼓励吧