День добрый.
Ищу совета знатоков.
Суть этого куска кода в том, что бы попробовать соединиться с серваком при клике в мемо.
И если связь есть, то всё отлично, но если связи нет вся програмулина просто вылетает.
Не могу понять где косяк, в обработчике или сама платформа такая капризная.
Код:
procedure Form.Memo1Click(Sender: TObject);
procedure conn; //советовали попытку соединения загнать в отдельную процедуру - толку 0
Begin
idftp1.connect;
servstat.Text := 'сервер на связи';
servstat.FontColor := TAlphaColorRec.green;
send.Enabled := true;
End;
begin
if idftp1.Connected = false then //если не на связи
try //пробуем соединиться
conn;
except //не получилось соединиться
// on E: EConvertError do
begin
servstat.FontColor := TAlphaColorRec.Red
end;
end
else //сервак был на связи до клика
servstat.Text := 'сервер на связи';
servstat.FontColor := TAlphaColorRec.green;
send.Enabled := true;
end;