Kod: Tümünü seç
function TFrmMain.EmailAyarKontrol: Boolean;
var
Q : TIBQuery;
Smtp : TIdSMTP;
begin
Smtp := TIdSMTP.Create(nil);
with SMTP do
begin
try
Q := TIBQuery.Create(nil);
Q.Database := DMGS.IBDBGenel;
Q.Transaction := DMGS.IBDBGenel.DefaultTransaction;
Q.SQL.Add('SELECT SUNUCU_ADI, KULLANICI_ADI, SIFRE, PORT, AKTIF FROM EPOSTA');
Q.SQL.Add('WHERE AKTIF = 1');
Q.Open;
Host := Q.FieldByName('SUNUCU_ADI').AsString;
Username := Q.FieldByName('KULLANICI_ADI').AsString;
Password := Q.FieldByName('SIFRE').AsString;
Port := Q.FieldByName('PORT').AsInteger;
AuthType := satDefault;
Connect;
Result := True;
except
Application.MessageBox('Girmiş Olduğunuz E-Mail Ayarları Yanlış veya İnternet Bağlantınız Yok.' + #13 +
'Bağlantı Yapılamadı. Bu E-Mail Ayarları İle E-Mail Gönderilemez.', 'Bağlantı Hatası', MB_SYSTEMMODAL + MB_OK + MB_ICONERROR);
Result := False;
end;
end;
FreeAndNil(Q);
FreeAndNil(Smtp);
end;