Hallo,
eerst een stukkie code:
op deze regel: Tcp:=TIdTCPClient.Create(IdComp);
krijg ik deze melding:
Project1 received signal sigsegv(11)
Wat moet ik hier aan doen zodat het probleem wordt opgelost?
eerst een stukkie code:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| procedure TIrc.Create;
begin
//Create TcpClient
try
Tcp:=TIdTCPClient.Create(IdComp);
with Tcp do
begin
ASCIIFilter:=true;
RecvBufferSize:= 32768;
SendBufferSize:= 32768;
with SocksInfo do
begin
Authentication:=saNoAuthentication;
Version:=svNoSocks;
end;
UseNagle:=True;
end;
except
MessageDlg('TCPError', 'Cannot create TCP Socket',mtError,[mbOK],1)
end;
//Set vars to default values
sIRC_Nick:='SXNick';
sIRC_Name:='SXName';
sIRC_PWD:='';
sIRC_HostName:='127.0.0.1';
sIRC_SvrName:='127.0.0.1';
sIRC_RealName:='SXRealName';
if Tcp.Connected
then IRCStatus:=stIRC_CONNECTED
else IRCStatus:=stIRC_DISCONNECTED;
end; |
op deze regel: Tcp:=TIdTCPClient.Create(IdComp);
krijg ik deze melding:
Project1 received signal sigsegv(11)
Wat moet ik hier aan doen zodat het probleem wordt opgelost?