Aşağıdaki kod ile tabletten (android4.4) mail gönderebiliyorum aynı uygulama ile telefondan (android 6.0.1) gönder dediğimde durum bilgisi aktarmadan memo tex te kapanıyor.
2.soru,
tablette uygulama geliştirirken bir bir kodda hata varsa ekrana geliyor ama telefondan çıkmıyor geliştrici ayarlarından bir yermi kapalı acaba?
teşekkürler
Kod: Tümünü seç
procedure TANASAYFAPENCERE.BTN_MAIL_GONDERClick(Sender: TObject);
begin
inherited;
Memo1.Lines.Add('');
Application.ProcessMessages;
Memo1.Lines.Add('Bağlantı Kuruluyor.');
try
if SMTP.Connected then SMTP.Disconnect;
SMTP.Host := QRYMAIL_AYARLAR.Fieldbyname('GIDEN_SUNUCU').Text;
SMTP.AuthType := satDefault;
SMTP.Username := QRYMAIL_AYARLAR.Fieldbyname('KULLANICI_ADI').Text;
SMTP.Password := QRYMAIL_AYARLAR.Fieldbyname('KULLANICI_SIFRE').Text;
SMTP.Port := 25;
if StrToIntDef(QRYMAIL_AYARLAR.Fieldbyname('GIDEN_SUNUCU_PORT').Text, -1) > 0
then SMTP.Port := StrToInt(QRYMAIL_AYARLAR.Fieldbyname('GIDEN_SUNUCU_PORT').Text);
// SSL ayarları
if QRYMAIL_AYARLAR.Fieldbyname('GIDEN_SIFRE_TURU').Text='Yok' then
begin
SMTP.UseTLS := utNoTLSSupport;
SMTP.IOHandler := nil;
SMTP.ConnectTimeout := 3000;
end else
begin
Memo1.Lines.Add('Bağlantı ayarları yapılıyor.');
LHandler.Destination := SMTP.Host + ':' + IntToStr(SMTP.Port);
LHandler.Host := SMTP.Host;
LHandler.Port := SMTP.Port;
LHandler.DefaultPort := 0;
LHandler.SSLOptions.Method := sslvTLSv1;
LHandler.SSLOptions.Mode := sslmUnassigned;
LHandler.SSLOptions.VerifyMode := [];
LHandler.SSLOptions.VerifyDepth := 0;
SMTP.IOHandler := LHandler;
end;
if QRYMAIL_AYARLAR.Fieldbyname('GIDEN_SIFRE_TURU').Text='SSL'
then SMTP.UseTLS := utUseImplicitTLS;
if QRYMAIL_AYARLAR.Fieldbyname('GIDEN_SIFRE_TURU').Text='TSL'
then SMTP.UseTLS := utUseExplicitTLS;
SMTP.ConnectTimeout := 10000;
Memo1.Lines.Add('Sunucuya Bağlanılıyor.');
SMTP.Connect;
Memo1.Lines.Add('E-posta gönderiliyor.');
EPostaMAIL.Clear;
EPostaMAIL.From.Address := QRYMAIL_AYARLAR.Fieldbyname('KULLANICI_ADI').Text;//EditUSER.Text;
EPostaMAIL.From.Name := KULLANICIPENCERE.QRY_KULLANICI_DBADI.Text+' '+KULLANICIPENCERE.QRY_KULLANICI_DBSOYADI.Text + ' (Sistem Mesajidir.)';
EPostaMAIL.ReplyTo.EMailAddresses := QRYMAIL_AYARLAR.Fieldbyname('KULLANICI_ADI').Text;
// EPosta.CCList.EMailAddresses := 'erdoganozkaya@gmail.com';
with EPostaMAIL.Recipients.Add do
begin
if QRYGENE_AYARLAR.Fieldbyname('HAREKET_MAIL').Text > '' then
begin
Name := QRYGENE_AYARLAR.Fieldbyname('HAREKET_MAIL').Text;
Address := QRYGENE_AYARLAR.Fieldbyname('HAREKET_MAIL').Text;
end else
begin
Name := QRYGENE_AYARLAR.Fieldbyname('KULLANICI_ADI').Text;
Address := QRYGENE_AYARLAR.Fieldbyname('KULLANICI_ADI').Text;
end;
end;
if EditBASLIK.Text=''
then EPostaMAIL.Subject := 'KONU YOK';
if EditBILGI_MAIL.Text<>''
then EPostaMAIL.CCList.EMailAddresses := EditBILGI_MAIL.Text;
EPostaMAIL.Body.Text := MemoMESAJ.Lines.Text;
SMTP.Send(EPostaMAIL);
Memo1.Lines.Add('Bağlantı başarılı. adresine bir E-posta gönderilmiştir.');
finally
Memo1.Lines.Add('Bağlantı sonlandırılıyor.');
if SMTP.Connected then SMTP.Disconnect;
end;
end;