hallo,
ich hab eben gerade mal zum test angefangen eine kompo zu schreiben (also versucht
)
nur hab ich bei folgendem ein problem:
Delphi-Quellcode:
unit blubb;
interface
uses
SysUtils, Classes, Windows, 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', [blubb]);
end;
end.
und zwar sind das diese fehler:
Zitat:
[Fehler] WARNING. Duplicate resource(s):
[Fehler] Type 2 (BITMAP), ID blubb:
[Fehler] File c:\programme\borland\delphi7\Lib\..\..\..\..\dokum ente und einstellungen\ps\desktop\blubb\blubb.dcr resource kept; file C:\Dokumente und Einstellungen\ps\Desktop\blubb\blubb.dcr resource discarded.
was heisst denn das nun? O_o