Discussion :

[sondo]

Bonjour à tous,

Je veux faire un programme en delphi pouvant afficher dans un Edit l'adresse IP d'une machine. J'ai donc fait une recherche dans la faq et voici la fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function ComputerName: string;
var
  lpBuffer: array[0..MAX_COMPUTERNAME_LENGTH] of char;
  nSize: dword;
begin
  nSize:= Length(lpBuffer);
  if GetComputerName(lpBuffer, nSize) then
    result:= lpBuffer
  else
    result:= '';
end;

Maintenant je ne sais pas comment appeler cette fonction en sorte que l'adresse IP contenu dans result s'affiche dans un Edit.
Merci à vous.

[Droïde Système7]

Bonjour,

Code :

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

1
2
3
4
5
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text :=  ComputerName();
end

;

[sjrd]

Tout comme il a dit, sauf qu'en Pascal on ne met généralement pas les parenthèses si elles sont vides :

Code :

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

Edit1.Text := ComputerName;

[sondo]

Comme c'est bête...
Merci beaucoup.

[Droïde Système7]

sjrd écrivait :

Tout comme il a dit, sauf qu'en Pascal on ne met généralement pas les parenthèses si elles sont vides :

A mon tour merci sjrd, c'est une grande richesse d'en apprendre tous les jours en tentant d'aider les autres.

Une sorte de principe écologique en quelque sorte au niveau de l'intelligence

Je penserais à toi lorsque je verrais que mon code n'attend aucun param entre les ==> ()

Bon dév' à Tous et vive DVP !