有的,你直接用WinSock编写即可。注意用Base64编码。
给你一段示例:
//请求验证
sbuf := 'AUTH LOGIN' + CRLF;
WinSock.send(Sock, sbuf[1], Length(sbuf), 0);
recv(Sock, rbuf, SizeOf(rbuf), 0);
//发送用户名
sbuf := Base64EncodeStr(FUserName) + CRLF;
WinSock.send(Sock, sbuf[1], Length(sbuf), 0);
recv(Sock, rbuf, SizeOf(rbuf), 0);
//发送密码
sbuf := Base64EncodeStr(FPassword) + CRLF;
WinSock.send(Sock, sbuf[1], Length(sbuf), 0);
recv(Sock, rbuf, SizeOf(rbuf), 0);