Sockets : problème d'un exit code d'un array

Version imprimable

09/03/2011, 02h47
elliotg

Sockets : problème d'un exit code d'un array

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:

client := sock.Accept;

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

Code:

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".

Citation:
Envoyé par elliotg
Code:

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.

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:

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

Code:

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

10/03/2011, 15h05
elliotg

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