E posta Gönderme Kodu Delphi

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;...

Devamını Oku

MySql Veri Tabanı Yedekleme Yazılım içerisinden Kodla Delphi

MySql Veri Tabanı Yedekleme Yazılım içerisinden Kodla Delphi

procedure Tanaform.YedekAl2Click(Sender: TObject); var tablolar,insert: string; i:integer; begin if misafir.Text<>’Misafir’ then begin if qkullanicilarYEDEK_ALMA.AsString=’True’ then begin try mkdir(extractfilepath(application.exe...

Devamını Oku

Excel’e Veri Kaydetmek Delphi

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:=createoleob...

Devamını Oku

Excel den Kayıt Okumak Delphi

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&#82...

Devamını Oku

Resim Boyutlandırmak Delphi

Resim Boyutlandırmak Delphi

procedure ResimBoyutlandir(Yol:string; KaydedilecekYol:string; yukseklik:integer; genislik:integer); var bmp  : TBitmap; bmp1 : TBitmap; XRect : TRect; begin bmp  := TBitmap.Create; bmp1 := TBitmap.Create; bmp.LoadFromFile(Yol); bmp1.Height := yukseklik; bmp...

Devamını Oku

Outlook a Kişi Eklemek Delphi

Outlook a Kişi Eklemek Delphi

procedure Tanaform.SeiliKiiyiOutlookaEkle1Click(Sender: TObject); Var myOlApp, myNameSpace, myContact, myDistList, myMailItem, myRecipients : OleVariant; begin if misafir.Text<>’Misafir’ then begin if qkullanicilarOUTLOOK.AsString=’True...

Devamını Oku

Outlook Kişi Listesini Almak Delphi

Outlook Kişi Listesini Almak Delphi

unit uoutlook; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses, uniGUIClasses, uniGUIForm,Registry, uniGUIBaseClasses, uniButton, uniMemo, ComObj, ActiveX, OleServer, Outlook...

Devamını Oku

ACR 122U NFC MİFARE KART VERİ YAZMA KODU 4 BYTE 7 BYTE

ACR 122U NFC MİFARE KART VERİ YAZMA KODU 4 BYTE 7 BYTE

procedure TfrmPICC.Button5Click(Sender: TObject); var I       : Integer; KId     : Int64; TempStr : String; THex    : String; Begin button3.Click; //Connect to reader using a shared connection retCode := SCardConnectW(hContext, PAnsiChar(ReaderNam...

Devamını Oku

ACR 122U NFC MİFARE KART VERİ OKUMA KODU 4 BYTE 7 BYTE

ACR 122U NFC MİFARE KART VERİ OKUMA KODU 4 BYTE 7 BYTE

procedure TfrmPICC.Button3Click(Sender: TObject); var I       : Integer; KId     : Int64; TempStr : String; THex    : String; Begin //Connect to reader using a shared connection retCode := SCardConnectW(hContext, PAnsiChar(ReaderName), SCARD_SHARE...

Devamını Oku

ACR 122U NFC MİFARE KART SERİ NUMARASI OKUMA KODU 4 BYTE 7 BYTE

ACR 122U NFC MİFARE KART SERİ NUMARASI OKUMA KODU 4 BYTE 7 BYTE

//  Copyright(C):      Advanced Card Systems Ltd // //  File:              OtherPICC.pas // //  Description:       This sample program outlines the steps on how to //                     transact with Other PICC c...

Devamını Oku