sadikozdogan.com
Tweet
ftp’den dosya çekme

ftp’den dosya çekme

merhaba arkadaşlar. bu yazımızda sizlere gerçektende güzel bir örnek paylaşacağım. delphi ile ftp serverine bağlanarak dosya nasıl çekilir. bunun örneğini paylaşacağım. gerçektende çok güzel hazırlanmış bir örnek.   örnek kod:   uses WinInet, ComCtrls; function FtpDownloadFile(strHost, strUser, strPwd: string; Port: Integer; ftpDir, ftpFile, TargetFile: string; ProgressBar: TProgressBar): Boolean; function FmtFileSize(Size:
efsane.06delphi0 Yorum6 Nisan 2017Devamı..
geçerli kaydı döndürme

geçerli kaydı döndürme

merhaba arkadaşlar. delphi programlama dilinde hazırlanmış birbirinden güzel ve sizlerin işine yarayan örnek uygulamaları paylaşmaya devam ediyoruz. bu yazıda sizlere bir kayıt oluşturup o kaydın döndürülmesini örneklendireceğiz.   kodlarımız aşağıda.   kod:   function TBDEDirect.GetCurRecord(Lock: DBILockType): PChar; var Res: DBIResult; RecSize: Word; RecBuf: PChar; Bookmark: TBookmark; begin Result := StrNew('');
efsane.06delphi0 Yorum5 Nisan 2017Devamı..
sistem renginin bulunması

sistem renginin bulunması

merhaba arkadaşlar. delphi kod örneklerimizi paylaşmaya devam ediyoruz. bu yazımızda ise sistem rengini bulan güzel bir örnek uygulama paylaşacağız. peki nasıl sistem rengini bulabiliriz. hepsini bu örnekle anlayacaksınız.   kod:   function GetNumColors: LongInt; var BPP: Integer; DC: HDC; begin DC := CreateDC('DISPLAY', nil, nil, nil); if DC <> 0
efsane.06delphi0 Yorum5 Nisan 2017Devamı..
ekran yakalama örneği

ekran yakalama örneği

merhaba arkadaşlar. bu yazımızda sizlere delphi ile hazırlanmış güzel bir kod örneğini paylaşacağım. örneğimiz şu şekilde. bu örneğimizde masaüstündeki görüntünün yakalanıp forum üzerine aktırılmasını sağlamaktadır.   kodlarımızı görelim.   kod:   procedure Tform1.GrabScreen; var DeskTopDC: HDc; DeskTopCanvas: TCanvas; DeskTopRect: TRect; begin DeskTopDC := GetWindowDC(GetDeskTopWindow); DeskTopCanvas := TCanvas.Create; DeskTopCanvas.Handle := DeskTopDC;
efsane.06delphi0 Yorum5 Nisan 2017Devamı..
asal sayıları bulma

asal sayıları bulma

merhaba arkadaşlar. bu yazımızda delphi ile hazırlanmış asal syıları bulan bir program örneği paylaşacağım. kodlara bakarak sizlerde kendinize böyle uygulamalar yaparak işlerinizi kolaylaştırabilirsiniz.   kod:   program Primes; { function IsPrime This function determines if a number is prime or not Parameters: x - the integer number to determine if
efsane.06delphi0 Yorum5 Nisan 2017Devamı..
harddisk seri numarası bulma

harddisk seri numarası bulma

merhaba arkadaşlar. bu yazımızda delphi kodlarını kullanarak harddisk seri numarasını bulabileceğimiz güzel bir kod örneği paylaşacağım. birbirinden farklı örnekleri okayarak programlama bilginizi geliştirebilirsiniz.   ne kadar çok örnek o kadar iyi bir programcı olabilmek demektir.   procedure TForm1.Button1Click(Sender: TObject); var VolumeSerialNumber : DWORD; MaximumComponentLength : DWORD; FileSystemFlags : DWORD; SerialNumber
efsane.06delphi0 Yorum4 Nisan 2017Devamı..
listboxtaki değerleri dizme

listboxtaki değerleri dizme

merhaba arkadaşlar. delphi programlama dilinde güzel bir çalışmayı sizlerle paylaşacağım. bu yazımızda bir tıkım listbox elamanlarımız var ve biz bu örnekte listboxtaki değerlerin nasıl dizileceğini anlatan bir örnek paylaşacağız.   kod:   procedure diz; var templist:tstringlist; begin templist:=tstringlist.create; listbox1.items.beginupdate; try templist.assign(listbox1.items); templist.Sort; listbox1.items.clear; listbox1.Items.Assign(templist); finally listbox1.items.endupdate; templist.free; end; kolay gelsin.
efsane.06delphi0 Yorum4 Nisan 2017Devamı..
tabloya şifre ekleme

tabloya şifre ekleme

merhaba arkadaşlar. delphi ile oluşturduğumuz tabloları şifreleyebiliriz ve güvenli bir tablo edinmiş oluruz. peki tablora nasıl şifreleyeceğiz.   işte size güzel bir tablo şifreleme örneği:   kod:   uses Bde, SysUtils, dbtables, windows; function StrToOem(const AnsiStr: string): string; begin SetLength(Result, Length(AnsiStr)); if Length(Result) 0 then CharToOem(PChar(AnsiStr), PChar(Result)); end; function TablePasswort(var
efsane.06delphi0 Yorum25 Mart 2017Devamı..
dosya içinde arama

dosya içinde arama

merhaba arkadaşlar. yine güzel bir örnek delphi ile oluşturulan bir dosya içerisinde arama yapmayı ele alacağız. bu işlemi yapmamız için gerekli kodlar yazının devamındadır.   kod:   function ScanFile(const FileName: string; const forString: string; caseSensitive: Boolean): Longint; const BufferSize = $8001; { 32K+1 bytes } var pBuf, pEnd, pScan, pPos:
efsane.06delphi0 Yorum25 Mart 2017Devamı..
parametre kullanımı

parametre kullanımı

Anahtar Sözcükler: – paramcount – paramstr } program uygulama; // {$APPTYPE CONSOLE} uses SysUtils,dialogs; begin case ParamCount of // parametre sayısı alarak duruma göre davranmasını istiyelim // örn.: uygulama -b merhaba // parametre sayısı yukarıdaki örnekte 2 ‘dir // “-b” parametresini PARAMSTR(1) // “merhaba” parametresini PARAMSTR(2) olarak elde edeceğiz //
efsane.06delphi0 Yorum25 Mart 2017Devamı..
Sayfa123
Sponsor Reklam Sponsor Reklam Sponsor Reklam Sponsor Reklam