Bilgisayar ve İnternet
Bilgisayarın IP adresini almak
öncelikle uses Winsock; function findHostIP(var IP: string): Boolean; var wsdata : TWSAData; xhost : array [0..255] of char; xhostEnt : PHostEnt; addres : PChar; begin WSAStartup ($0101, wsdata); try gethostname (xhost, sizeof (xhost)); xhostEnt := gethostbyname (xhost); if Assigned (xhostEnt ) then if Assigned (xhostEnt ^.h_addr_list) then begin addres := xhostEnt ^.h_addr_list^; if Assigned (addres [...]
Ağ daki Bilgisayarlara Ping Atmak
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdRawBase, IdRawClient, IdIcmpClient, StdCtrls, ExtCtrls; type TForm1 = class(TForm) IdIcmpClient1: TIdIcmpClient; host: TEdit; Button1: TButton; Label1: TLabel; ekran: TListBox; Timer1: TTimer; ysure: TEdit; zasim: TEdit; Label5: TLabel; CheckBox1: TCheckBox; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure IdIcmpClient1Reply(ASender: TComponent; const AReplyStatus: [...]
Dosya ve Klasör işlemleri Kes ,Kopyala, Yapıştır
uses shellapi function movefolder(xvon,zielfolder: String): boolean; var fos: TSHFileOpStruct; begin ZeroMemory(@fos, SizeOf(fos)); with fos do begin wFunc := FO_MOVE; fFlags := FOF_FILESONLY; pFrom := PChar(xvon+#0); pTo := PChar(zielfolder) end; Result:=(0=ShFileOperation(fos)); end; function copyfolder(xvon,zielfolder: String): boolean; var fos: TSHFileOpStruct; begin ZeroMemory(@fos, SizeOf(fos)); with fos do begin wFunc := FO_COPY; fFlags := FOF_FILESONLY; pFrom := PChar(xvon+#0); pTo [...]
Program İçerisinden Harddisk Formatlamak
const SHFMT_OPT_FULL = $0001; SHFMT_ERROR = $FFFFFFFF; SHFMT_CANCEL = $FFFFFFFE; SHFMT_ID_DEFAULT = $FFFF; SHFMT_OPT_QUICKFORMAT = $0000; SHFMT_OPT_SYSONLY = $0002; function SHFormatDrive(hWnd : HWND; Drive, fmtID, Options : Word) : Longint; stdcall; external ‘Shell32.dll’ name ‘SHFormatDrive’ function FormatDrive(Drive: Char): Integer; var surucuNo: Word; begin if Drive in ['a'..'z'] then Dec(Drive, $20); surucuNo:= Ord(Drive) – $41; try [...]
ListView içeriğini Dosyaya Kaydetmek ve Açmak
// Formunuza bir ListView ekleyin. ListView un ViewStyle özelliğini vsReport // yapıp, alanları ekleyin. Tetikleyecek bir buton ya da başka bir nesneyle // aşağıdaki şekilde kullanabilirsiniz. // ____________________________________________________ // KULLANIMI: // ____________________________________________________ // Dosya açmak için –> // ListViewda_Dosya_Ac_Kaydet(Form1, ListView1, False); // ____________________________________________________ // Dosya kaydetmek için –> // ListViewda_Dosya_Ac_Kaydet(Form1, ListView1, True); // ____________________________________________________ unit [...]
Delphi Yazı ile YTL Para Functionu
/// —————————————————– /// function rakyazf(tutar:real; tur:integer):string; const b1:ARRAY [1..9] of string = (‘BİR’,’İKİ’,’ÜÇ’,’DÖRT’,’BEŞ’,’ALTI’,’YEDİ’,’SEKİ Z’,’DOKUZ’); b2:ARRAY [1..9] of string = (‘ON’,’YİRMİ’,’OTUZ’,’KIRK’,’ELLİ’,’ALTMIŞ’,’YETMİ Ş’,’SEKSEN’,’DOKSAN’); b3:ARRAY [1..6] of string = (‘KATRİLYON’,’TRİLYON’,’MİLYAR’,’MİLYON’,’BİN’,”) ; var gr:ARRAY [1..6] of string[3]; sn:ARRAY [1..6] of string; bs:ARRAY [1..3] of integer; tutars, tutart, tutark , sonuct, sonuck: string; i,l: integer; begin tutars:=floattostr(tutar); if pos(‘,’,tutars)=0 then [...]
Çalışma anında .db veya .mdb uzantılı veri tabanı oluşturmak
uses ComObj; // ADOX ile yaratmak function mdbyarat(FileName: string): string; var cat: OLEVariant; begin Result := ”; try cat := CreateOleObject(‘ADOX.Catalog’); cat.Create(‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=’ + FileName + ‘;’); cat := NULL; except on e: Exception do Result := e.message; end; end; procedure TForm1.Button1Click(Sender: TObject); begin mdbyarat(‘c:\Testdb.mdb’); end; //Sadece DBASE yada ASCII veritabanı yaratmak istiyorsanız procedure CreateATable(DBName, [...]
Delphide Yazılmış Kaynak Kodlar
Ctrl alt del gizleme SetWindowLong(Application.Handle,GWL_HWNDPARENT,WS_EX_TOOLWINDOW); ————————————————————————————————————— Track bar konumu showmessage(inttostr(TrackBar1.Position)); ————————————————————————————————————— Font sitili Canvas.Font.Style := Canvas.Font.Style + [fsBold]; Canvas.Font.Name := `Courier New’; Canvas.Font.Size := 14; Canvas.Font.Style := Canvas.Font.Style + [fsBold]; Canvas.TextOut(20, 20, `Testing’); ————————————————————————————————————— exe in içinde bulunduğu dosyayı çağırma ExtractFilePath(Application.ExeName) + ‘serelif.wav’ mediaplayer1.filename:=extractfilepath(application.exename)+’serelif.wav’; ————————————————————————————————————— {$R *.DFM} function PlayWavFile(const FileName: string): Boolean; begin Result := [...]
Delphide Veri Tipleri (Sabitler ve değişkenler)
Değişkenler içinde farklı türlerde veriler olabilir. Örneğin bazı değişkenlerde sayı saklamanız gerekirken metin saklamanız gerekebilir. Değişkenin tanımlarken o değişkende ne tür veri bulunduracağı-nızı belirlemeniz gerekir. Kullanabileceğiniz veri tipleri şunlardır: Var sayi, Toplam: Integer; Toplam:Integer; x,y,z: word; Açıklama: String; MedeniHali: Boolean; Ondalık Sayı: real; Tam Sayı Tipleri : ShorInt : 1 baytlık işaretli tam sayı tipidir. [...]
Delphi İçin Buton Efektleri (Web Türü Buton Yapma)
Web türü buton yapmanın amacı bildiğiniz gibi delphinin standart buttonları genellikle klasik programlar için kullanılır . Şimdi yapacağımız button kendi çizdiğimiz 3 resimden oluşuyor. Öncelikle 3 adet aynı boyda aynı textli button çizin. 1. Resim ; buttonun Sabit yani Form üzerindeki duruşudur 2. Resim ; Programımız çalışırken mouse ile aynı buttonun üzerine geldiğimize buttonun alacağı [...]
Loading ...