当前位置：文江博客话题详情

帕斯卡套接字

发布于 2024-07-04 07:56:15 字数 28 浏览 6 评论 0原文

如何在 Pascal 中使用网络套接字？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

青春如此纠结 2024-07-11 07:56:15

您不能将 OpenSSL 与 Delphi 2007 附带的 Indy 版本 10.5 一起使用。您必须从 http:// 下载版本 10,6 www.indyproject.org/ 并将其安装到 IDE 中。

请注意，其他包可能使用 Indy，例如 RemObjects，因此它们也必须重新编译，并且由于交叉引用，这可能会很棘手。

回复收藏 0 原文

墨小墨 2024-07-11 07:56:15

如果您使用 Delphi，我强烈推荐 Indy 套接字，这是一组易于使用的类操纵套接字和许多其他互联网协议（HTTP、FTP、NTP、POP3 等）

回复收藏 0 原文

信愁 2024-07-11 07:56:15

如果您使用 FPC 或 Lazarus（基本上是 FPC 的 rad IDE 和 delphi 的克隆），您可以使用 Synapse 套接字库。太奇妙了。

回复收藏 0 原文

梦年海沫深 2024-07-11 07:56:15

这是取自 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.

Here's an example taken from 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.

回复收藏 0 原文

~没有更多了~