题
如何在 Pascal 中使用网络套接字?
解决方案
这是一个来自的例子 http://www.bastisoft.de/programmierung/pascal/pasinet.html
program daytime;
{ Simple client program }
uses
sockets, inetaux, myerror;
const
RemotePort : Word = 13;
var
Sock : LongInt;
sAddr : TInetSockAddr;
sin, sout : Text;
Line : String;
begin
if ParamCount = 0 then GenError('Supply IP address as parameter.');
with sAddr do
begin
Family := af_inet;
Port := htons(RemotePort);
Addr := StrToAddr(ParamStr(1));
if Addr = 0 then GenError('Not a valid IP address.');
end;
Sock := Socket(af_inet, sock_stream, 0);
if Sock = -1 then SockError('Socket: ');
if not Connect(Sock, sAddr, sizeof(sAddr)) then SockError('Connect: ');
Sock2Text(Sock, sin, sout);
Reset(sin);
Rewrite(sout);
while not eof(sin) do
begin
Readln(sin, Line);
Writeln(Line);
end;
Close(sin);
Close(sout);
Shutdown(Sock, 2);
end.
其他提示
如果您使用 FPC 或 Lazarus(基本上是 FPC 的 rad IDE 和 delphi 的克隆),您可以使用 突触 套接字库。太奇妙了。
如果你使用Delphi,我强烈推荐 印地 套接字,一组用于轻松操作套接字和许多其他互联网协议(HTTP、FTP、NTP、POP3 等)的类
您不能将 OpenSSL 与 Delphi 2007 附带的 Indy 版本 10.5 一起使用。您必须从以下位置下载版本 10,6 http://www.indyproject.org/ 并将其安装到IDE中。
请注意,其他包可能使用 Indy,例如 RemObjects,因此它们也必须重新编译,并且由于交叉引用,这可能会很棘手。
不隶属于 StackOverflow