Slt a ts,
j'ai un petit souci.
J'ai créer un programme qui test des serveur FTP perso.
voici le code utilisé:
nbrserv:=strtoint(StringGrid1.Cells[1,0]);
servcour:=1;
while servcour <= nbrserv do
begin
try
IdFTP1.Host:=StringGrid1.Cells[0,servcour];
IdFTP1.Username:=StringGrid1.Cells[2,servcour];
IdFTP1.Password:=StringGrid1.Cells[3,servcour];
IdFTP1.Port:=strtoint(StringGrid1.Cells[4,servcour]);
IdFTP1.Connect;
if IdFTP1.Connected then
begin
soundgo('Online');
Stringgrid1.Canvas.Font.Color:=clGreen;
Stringgrid1.Canvas.TextOut(Stringgrid1.ColWidths[0]+5,servcour*19+2,'Online');
IdFTP1.Disconnect;
end
except
soundgo('Offline');
Stringgrid1.Canvas.Font.Color:=clred;
Stringgrid1.Canvas.TextOut(Stringgrid1.ColWidths[0]+5,servcour*19+2,'Offline');
end;
servcour:=servcour+1;
end;
les parametre de connexion sont stoké dans un StringGrid et le composant est un INDYFTP.
Voila mes probleme:
Comme vous pouvez le voir, ONLINE et OFFLINE s'ecrive en vert et en rouge. Mais si je réduit la fnetre et que je la réouvre, ca s'efface!! Je pense que c'est possible de modifier ca avec ONDRAWCELL mais comment???
Deuxieme probleme, pendant le test, le programme est bloqué, on ne peut ni le fermé, ni le reduire, ni selectionné de cellule a l'interieur du stringgrid!! Comment remedier a ca??
Ci vous avez une reponse a une de ces quetion, merci de m'aider!! (celle qui m'ennui le plus est la 2eme(le blokage)).
@++
Smeito79