k_23090723_eposta

E posta Gönderme Kodu Delphi

procedure Tfeposta.UniButton1Click(Sender: TObject); begin SMTP1.Disconnect; smtp1.Username:=qepostaEPOSTA.asstring; smtp1.Password:=qepostaPAROLA.AsString; smtp1.HOST:=qepostaGIDEN_SMTP.AsString; smtp1.Port:=qepostaGIDEN_PORT.AsInteger; IdMessage1.Body.Clear; if FileExists(uniedit2.Text) then begin TIdAttachmentFile.Create(IdMessage1.MessageParts,uniedit2.Text); end; IdMessage1.Sender.Name:=qepostaEPOSTA.AsString; IdMessage1.From.Address:=qepostaEPOSTA.AsString; IdMessage1.Recipients.EMailAddresses :=unimemo1.Text;…

excel

Excel’e Veri Kaydetmek Delphi

procedure Tanaform.ExeleAktar1Click(Sender: TObject); var excelPrg,sayfa:variant; i,d:integer; r:variant; begin if misafir.Text<>’Misafir’ then begin if qkullanicilarEXCEL_OKUMA.AsString=’True’ then begin try excelPrg:=createoleobject(‘excel.application’);//exceli yarat excelPrg.workbooks.add;…

excel

Excel den Kayıt Okumak Delphi

procedure Tanaform.ExeldenOku1Click(Sender: TObject); var satir, sutun,versiyon,kontrol,sayac,kisi_id:integer; str,dosya,ad,soyad,cep_tel,is_tel,ev_tel,dah_no,email,is_adres,ev_adres,bilgi_id:string; TF:TextFile; begin if misafir.Text<>’Misafir’ then begin if qkullanicilarEXCEL_OKUMA.AsString=’True’ then begin sayac:=0; if OpenDialog1.Execute…