[delphi 7] plusieurs questions
Résolu
bonjour a tous, voila, j'ai plusieurs questions a poser sur delphi.
1) comment utiliser une form personnalisée pour nos programmes ?
2)que faut-il utiliser pour programmer un client mail ?
3)comment faire un ping avec delphi ? (dans un programme bien édidament ;-))
4)meme question avec un finger et pour scanner les ports ouverts d'un ordinnateur (celui de l'utilisateur, pas un utilisateur distant) ?
5)comment faire un splatch screen ?
voila, pour info, j'ai la version 7 de delphi et je vous remercie d'avance pour vos réponses.
@ +
1) comment utiliser une form personnalisée pour nos programmes ?
2)que faut-il utiliser pour programmer un client mail ?
3)comment faire un ping avec delphi ? (dans un programme bien édidament ;-))
4)meme question avec un finger et pour scanner les ports ouverts d'un ordinnateur (celui de l'utilisateur, pas un utilisateur distant) ?
5)comment faire un splatch screen ?
voila, pour info, j'ai la version 7 de delphi et je vous remercie d'avance pour vos réponses.
@ +
4 réponses
-
Salut ,
Pour mail , ping etc telecharge indy. -
salut, oué, je l'ai déjà indy mais je ne sais pas vraiment comment m'en servir en fait... je crois que je vais faire un tour ici www.google.fr lol
merci quand meme -
m'inscrire
-
Salut !
1)J'ai pas très bien compris la question
2)Tout ce que je sais c'est que ce sont des composants Indy
3)Il te faut le IdIcmpClient de Indy sur la fenêtre, ainsi qu'un Label, et un Timer.
le Timer servira à exécuter l'action chaque seconde.
D'abord double-click sur onTimer du TTimer et tu laisses vide.
Ensuite tu doubles-cliques sur le onReply du composant Indy.
Ensuite tu laisses les procédures écrites dans les déclarations TYPE et tu supprimes tout ce qui est après {$R *.dfm}
Ensuite colle ce bout de code :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
IdIcmpClient1.Host := 'www.google.fr';
IdIcmpClient1.ReceiveTimeout := 999; //2 seconds
//Try/except to get rid of the Socket Error #10004 Interrupted System Call
try
IdIcmpClient1.Ping;
except
ShowMessage('Error when pinging');
end;
end;
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent; const AReplyStatus: TReplyStatus);
begin
if (AReplyStatus.ReplyStatusType = rsTimeOut) or (AReplyStatus.ReplyStatusType = rsErrorUnreachable) then begin
Label1.Caption := 'Computer is down.';
end else begin
Label1.Caption := 'Packet round trip time: ' + IntToStr(AReplyStatus.MsRoundTripTime) + ' ms.';
end;
end;
end.
4)Je ne sais pas
5)Dans Align, tu choisis AlClient
