Kod: Tümünü seç
procedure TANASAYFAPENCERE.BTN_MAIL_GONDERClick(Sender: TObject);
begin
inherited;
Memo1.Lines.Add('');
Application.ProcessMessages;
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 SERTİFİKASI
if QRYMAIL_AYARLAR.Fieldbyname('GIDEN_SIFRE_TURU').Text='Yok' then
begin
SMTP.UseTLS := utNoTLSSupport;
SMTP.IOHandler := nil;
SMTP.ConnectTimeout := 3000;
end else
begin
LHandler.Destination := SMTP.Host + ':' + IntToStr(SMTP.Port);
LHandler.Host := SMTP.Host;
LHandler.Port := SMTP.Port;
LHandler.DefaultPort := 0;
LHandler.SSLOptions.Method := sslvTLSv1;//sslvTLSv1 - DELPHİ7 İÇİN;
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;
SMTP.Connect;
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 := EditBASLIK.Text;
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);
finally
if SMTP.Connected then SMTP.Disconnect;
end;
end;Kod: Tümünü seç
procedure TEVRAKKAYITPENCERE.Image1Click(Sender: TObject);
var
ImageService: IFMXTakenImageService; /// galeriden resim almak için
Params: TParamsPhotoQuery; /// galeriden resim almak için
begin
/// galeriden resim almak için
if TPlatformServices.Current.SupportsPlatformService(IFMXTakenImageService,
IInterface(ImageService)) then
begin
Params.RequiredResolution := TSize.Create(640, 640);
Params.OnDidFinishTaking := DoDidFinish;
ImageService.TakeImageFromLibrary(Image1, Params);
end;
/// galeriden resim almak için
end;