[delphi 7] plusieurs questions Résolu/Fermé

Question

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.@ +

aldo13 · Answer

Salut , Pour mail , ping etc telecharge indy.

theodracoden · Answer

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

azert53 · Answer

m'inscrire

kabbabi · Answer

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

[delphi 7] plusieurs questions

4 réponses

Discussions similaires