[LG]Type mismatch

Version imprimable

[LG]Type mismatch

Bonjour a tous encore un petit soucis, j'ai un type mismatch en code d'erreur sur ma varable NOM qui en fait recupere le nom de ma machine, j'ai voulu la rajouter car je voulais rajouter du texte du style LE NOM DE VOTRE MACHINE EST : NOM, j'ai pas d'autre initiative puique dans le messagebox je meux mettre qu'une variable sans le texte... enfin voila je sais pas trop quoi faire !!!! Merci

Au passage est ce qu'on pourait m'expliquer en detail la declaration de wsdata et l'intialisation de winsock le $0001, ça m'aiderais a comprendre ce que j'écris j'ai rien trouvé sur le forum et sur google.Fr non plus merci !!!
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 program nouveau; uses crt,sysutils,windows,winsock; var nom, nom1 : array [0..255] of char; wsdata:wsadata; begin wsastartup ($0001,wsdata); gethostname ( nom ,sizeof (nom)); nom1 := 'le nom de votre machine est :'+ nom; messagebox (0,nom1,'NOM DE MACHINE',64); end.

03/11/2003, 13h19
néo333

[RESOLU]

C ok j'ai trouvé on peut pas concatené un type array avec une chaie de caractere merci !!! a tous et a moi lol ;) !!!

Salut!

Je me suis fait 2 fonctions (stpc & pcst) pour convertir une chaîne en pchar (array of char) et inversement:

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
32
33
34
35
36
37
38
39
{-------------------------------------------------------------------------}
{ CONVERT CHAR TO ASCII BYTE (inv Chr)                                    }
{-------------------------------------------------------------------------}
function chtoby(mch:string):byte;
var xch,cht:integer;
{$s-}begin xch:=0;repeat cht:=-1;
if copy(mch,1,1)=chr(xch) then cht:=xch;inc(xch);
Until(xch>255)or(cht<>-1);
if(xch>255)then chtoby:=0 else chtoby:=cht;end;
 
{-------------------------------------------------------------------------}
{ RETURN LENGTH OF PCHAR                                                  }
{-------------------------------------------------------------------------}
function pclen(pc:pchar):word; 
var x:word;
begin pclen:=0;
x:=0;repeat if(pc[x]<>#0)then inc(x);
until(x>=$FFFF)or(pc[x]=#0);
if(pc[x]=#0)then pclen:=x;end;
 
{-------------------------------------------------------------------------}
{ CONVERT STRING TO PCHAR                                                 }
{-------------------------------------------------------------------------}
function stpc(st:string):pchar;
const maxchar=1024;
var pc2:array[0..maxchar]of char;x:word;
{$r-}begin for x:=0 to maxchar do pc2[x]:=#0;
for x:=0 to length(st)-1 do
begin pc2[x]:=chr(chtoby(copy(st,x+1,1)));
if(x+1=length(st))then pc2[x+1]:=#0;end;stpc:=pc2;end;
 
{-------------------------------------------------------------------------}
{ CONVERT PCHAR TO STRING                                                 }
{-------------------------------------------------------------------------}
function pcst(pc:pchar):string;
var stx:string;x,pcl:word;
{$r-}begin x:=0;stx:='';pcl:=pclen(pc);repeat
if not(pc[x]=#0)then stx:=stx+pc[x];inc(x);
until(pc[x]=#0)or(x>pcl+1);pcst:=stx;end;

Exemple:

Code:

1
2
3
4
5
Var pc:pchar;
Begin
 pc:=stpc('Salut à tous!');
 pc:=stpc(pcst(pc)+' ça va?');
End;

Qu'en penses-tu? à+

04/11/2003, 12h31
néo333

j'en pense que !!

Excuse j'avais pas vu la question en bas ...

ben j'en pense que pour moi beaucoup de chose sont encore flou mais je sais qu'a long terme il faudra mettre toutes les fonctions et procédure les plus utilisé dans une unité et basta et être tranquille et mettre a jour régulierement biensur ...

En revanche des qui ya des $0001 et autre moi je suis perdu alors si tu pouvais m'expliquer unpeu c que c avec des exemples concret ça m'arangerais beaucoup !!!

Tiens par exemple :

Code:

wsastartup ($0001,sizeof(nom));

pour le gethostname !!!! Merci @+
04/11/2003, 16h04
M.Dlb

$0001 est un paramètre de la fonction GetHostName...
Regarde sur msdn si tu veux plus de renseignements...
http://msdn.microsoft.com

a+
04/11/2003, 16h18
Sub0
$ permet de distinguer les nombres héxadécimaux des nombres décimaux normaux.
Tu remarqueras que les "0" devant le chiffre ne sont pas indispensables.
On peut très bien écrire $0001, ou $1, c'est pareil.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 $0000 = 0 $0001 = 1 $0002 = 2 ... $0009 = 9 $000A = 10 $000B = 11 ... $000F = 15 $0010 = 16 $0011 = 17 ... $FFFF = 65535
Citation:

int WSAStartup(
WORD wVersionRequested,
LPWSADATA lpWSAData);

Parameter wVersionRequested
[in] Highest version of Windows Sockets support that the caller can use. The high-order byte specifies the minor version (revision) number; the low-order byte specifies the major version number.

La notation héxadécimal est utilisé pour ce paramètre afin de mieux distinguer les 2 octets spécifiant la version.
$0001 = version 1.0
Un autre exemple: $0A02 = version 2.10
Il existe la fonction MakeWord qui permet de constituer ce nombre héxadécimal à partir des 2 octets.
Ex: MakeWord(2,10); retournera $0A02
Code:

1 2 3 4 Function MakeWord(b1,b2:Byte):Word; Begin MakeWord:=b1*$100+b2; End;
Code:

wsastartup(MakeWord(1,0), sizeof(nom));

Est-ce-que c'est plus clair à présent? à+
04/11/2003, 22h13
néo333

oui !!!

Oui merci beaucoup c super claire je peux pas esperé mieux Merci !!!