Discussion :

[elliotg]

Bonjour,

après avoir trouvé une lib socket j'ai voulu essayer un mini serveur mais pour trouver les fonctions j'ai dû regarder dans la lib; enfin bref, je cherche le type qu'il faut pour cette variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

client := sock.Accept;

J'ai essayé virtual, boolean, TSocket, string, aucun ne marche ><
Cordialement.

[elliotg]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
program test;
 
uses blcksock;
 
var sock: TTCPBlockSocket;
var client: real;	
 
begin
	sock := TTCPBlockSocket.Create;
	sock.Bind('172.16.1.109', '9299');
	sock.Listen;
	client := sock.Accept;
	client.RecvPacket(1000);
end.

Le real a l'air de marcher mais ensuite au niveau du client.RecvPacket cela me fait une erreur "Illegal Qualifier".

[Paul TOTH]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
program test;
 
uses blcksock;
 
var sock: TTCPBlockSocket;
var client: real;	
 
begin
	sock := TTCPBlockSocket.Create;
	sock.Bind('172.16.1.109', '9299');
	sock.Listen;
	client := sock.Accept;
	client.RecvPacket(1000);
end.

Le real a l'air de marcher mais ensuite au niveau du client.RecvPacket cela me fait une erreur "Illegal Qualifier".

essaie avec TypeInfo(Random(100)) ...

tu ne sais manifestement pas ce que tu fais.

regarde TTCPBlockSocket.Accept, le type attendu est donné dans la déclaration.

[elliotg]

Enfaite le type attendu était TSocket mais ça ne marchais pas et dans les exemples de la libs il mettais d'autre lib alors j'en ai importé d'autres dans mon code et cela marche mais la j'ai une erreur au niveau des array, enfin sa marche le exe mais il se coupe avec un exitcode 217.
Dans ce code l'erreur je pense :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
for i := 0 TO compteur DO
	begin
	if clients[i] = client
	then
	begin
	int := i;
	break;
	end
	else
	begin
	writeln('nouveau client');
	clients[compteur] := client;
	compteur := compteur + 1;
	end;
	end;

Merci quand même pour ta réponse

[elliotg]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
	while TRUE do
	begin
	client := sock.Accept;
	for i := 0 TO compteur DO
	begin
	if clients[i] = client
	then
	begin
	int := i;
	end
	else
	begin
	writeln('nouveau client');
	clients[compteur] := client;
	compteur := compteur + 1;
	end;
	end;
	sock.Socket := client;
	buffer := sock.RecvString(2000);
	write(buffer);
	sock.SendString('fuck');
	end;

Enfaite l'erreur vient que si j'envoie une requete donc par le accpt l'exitcode se produit mais je ne sais pas pourquoi

[elliotg]

Résolu, J'avais mis array[0..0] donc j'ai modif en 0..1000