hi leute,
ich habe es nun so:
Delphi-Quellcode:
unit blubb;
interface
uses
Windows, Graphics, SysUtils, Classes, WinSock;
type
Tblubb =
class(TComponent)
private
FServer:
string;
FPort: Integer;
FNickname:
string;
FUsername:
string;
public
procedure Connect;
published
property Server:
string read FServer
write FServer;
property Port: Integer
read FPort
write FPort;
property Nickname:
string read FNickname
write FNickname;
property Username:
string read FUsername
write FUsername;
end;
procedure Register;
implementation
{$R blubb.dcr}
procedure Tblubb.Connect;
var
wVersionRequired: Word;
WSData: WSAData;
s: LongInt;
sain: sockaddr_in;
begin
s := 0;
wVersionRequired := MAKEWORD(1, 0);
if winsock.WSAStartup(wVersionRequired, WSData) <> 0
then
begin
with sain
do
begin
sin_family := AF_INET;
sin_port := FPort;
sin_addr.S_addr := inet_addr(PAnsiChar(FServer));
end;
if winsock.connect(s, sain, SizeOf(sain)) <> SOCKET_ERROR
then
begin
end;
end;
end;
procedure Register;
begin
RegisterComponents('
test', [Tblubb]);
end;
end.
und es tritt immernoch der gleiche fehler auf.
es muss an der prozedur connect liegen, weil wenn ich EINEN der beiden "connect's"(interface bzw implementations-teil) namen ändere, dann kommt kein fehler... nur wenn sie gleich heissen, was sie ja müssen...
Hat sonst noch jemand eine idee was ich tun kann?