Programlama yapalım ve Öğrenelim.

CLİENT PROGRAM İÇİN----------------------------------------------------------------------------------------------------------

formunuza fastnet tabının altında yer alan nmudp componentini ekleyin

nmudp componentini formunuza koyduktan sonra object inspector'a gelin

local port'a 4000 yazın sonra remoteport' a da 4000 yazın. ardından

formunuza 2 adet edit kutusu 1 tane clientsocket (internet tabının altında yer alır) 2 tane de button koyun.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ScktComp, NMUDP;

type

TForm1 = class(TForm)

NMUDP1: TNMUDP;

ClientSocket1: TClientSocket;

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Edit2: TEdit;

procedure NMUDP1DataReceived(Sender: TComponent; NumberBytes: Integer;

FromIP: String; Port: Integer);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

procedure WMQueryEndSession(var Msg : TWMQueryEndSession); message WM_QueryEndSession;

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMQueryEndSession(var Msg : TWMQueryEndSession);

begin

form1.NMUDP1.RemotePort:=0;

form1.NMUDP1.Free;

Msg.Result := 1;

clientsocket1.Active:=false;

application.Terminate;

end;

procedure TForm1.NMUDP1DataReceived(Sender: TComponent;

NumberBytes: Integer; FromIP: String; Port: Integer);

var

tmpstr:string;

begin

edit1.Text:='';

setlength(tmpstr,numberbytes);

NMUDP1.ReadBuffer(tmpstr[1],NumberBytes);

edit1.text:=(FromIP+tmpstr);

button1.Click;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

b,c,IPAdres:string;

begin

c:=edit1.text;

b:=copy(c,(length(c)-14),15);

if b='aaabbbccc987677' then begin

delete(c,(length(c)-14),15);

edit2.Text:=c;

button2.click;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if clientsocket1.Socket.Connected=false then begin

clientsocket1.Address:=edit2.Text;

clientsocket1.Active:=true;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

clientsocket1.port:=1024;

end;

end.

Delphi - .....................................

delphi

hesap makinesi

Delphi - .....................................

Programın ekranın ortasında yer alması***

//...::::::( KORSAN )::::::...

Arkadaşım sen bunu incelemeden böyle yazıyorsun

yeni başlayan arkadaşlar bunun böyle yapıldığını sanıyorlar ve

her tarafı saçma sapan kodlarla dolduruyorlar

dolayısıyla uygulamalarının boyutları büyüyor :)

istersen formun özelliklerinden

Position kısmında "poScreenCenter" seç ve bir dene :))

bunun için kod mu yazılır ?

//Selam arkadaşlar,

//Aşağıdaki kod programın OnCreate olayına eklenirse program ekran çözünürlüğüne

//bakmadan ekranın ortasında yer alacaktır.

//Ancak programın boyutları ekran çözünürlüğünden büyük olursa hatalı çalışır.

//left:=Trunc((Screen.Width-Width)/2);

//top:=Trunc((Screen.Height-Height)/2)

Delphi - .....................................

Datamodule Kullanımı(Acemiler İçin)

DataModule Kullanım(Acemiler İçin)

Arkadaşlar ben bununla ilgili pek kaynak bulamadım ama acemi(bu işe yeni başlayan) arkadaşlara

datamodule kullanımını açıklayayım dedim.

1.Adım : Programınıza bir Datamodule Ekleyiniz

2.Adım : Datamodule BDE den database(DBTables) ekleyin(Sadece BDE den database değil diğer BDE VE ADO bileşenlerini de ekleyebilirsiniz).

3.Adım : Datamodule niz için kendiniz bir Unit oluşturun ve istediğiniz ismi verin.

4.Adım : DataModule yi kullanmak istediğiniz formların Unitlerinin

Implementation

uses datamodule nin unit ismini ;

yazarak datamodule nizi burada formda kullanmayı tanımlıyorsunuz.

5.Adım : DataModule deki atmış olduğumuz database(DBTables) özelliklerine şunları yapabilirsiniz

Alias Name : database(DBTables) inizi diğer formlarda kullanmak için gireceğiniz takma adı yazınız(girilmesi zorunlu değil)

Database Name : Sizin gerçek veritabanı dosyalarınızın yolunu buraya yazın (girilmesi zorunludur).

Connect : Bu özellik ile de database inizi kullanıma açmış olursunuz.

Not : Datamodule nin önemi şu : Mesala programınız birden fazla formdan oluşuyor ve bu formlarda girilen kayıtlar veritabanına

ayrı ayrı yazılacak ve her bir formdaki table ve datasource lara hedef veritabanı kaynağı

göstermek zorunda kalıyorsunuz.Daha sonra projenizi başka bir dizine ya da makinaya taşıdığınızda

her formdaki table,datasource,query kaynak yolunu değiştirmeniz gerekiyor.İşte burada datamodule

imdadınıza yetişiyor.Datamodule bir defaya mahsus hedef yolu yazıyorsunuz ve diğer formlardaki

table,datasource,query hedeflerini de datamodule olarak gösterip işin içinde kolayca sıyrılıyorsunuz.

Belki bu anlattıklarım profesyonel arkadaşlara çok acemice gelebilir ama ben bunu bilmeyen,acemi arkadaşlara söylüyorum.

"Bilgi,paylaştıkça çoğalır."

by attila_07

attila_07_ant@hotmail.com

Delphi - .....................................

Paradox kaydetme sorunu

Paradox veri tabanı kullananlar bilir. Post olayını yapıyoruz ama bilgisayar elektrik kesintisinden kapanırsa en son Post larımız uçup gidiyor. aynı zamanda delete lerde. işte size bunu giderecek çözüm.

Table lerin After Post ve After Delete olaylarına

Table1.FlushBuffers; yapın yeter.

Not: Bu konu daha önce söylenmiş olabilir belkide. Ben bulamadım ve benimde önemli bir sorunum olduğu için çözünce hemen paylaşalım dedim.

Delphi - .....................................

İsim sonuna ek

// Kurumumuz Personeli İlhan AKÇA'nın yazısına datasetten Ad Soyad bilgisini aldıktan sonra

// nın, nun ve benzeri ekleri ekmek için kullanılır.

// Belki daha basit bir çözümü vardır.

Function ekle(sesli:string):string;

var unlu,son,gelen:string;

begin

son:= '';

son:= LeftStr(RightStr(sesli,3),1);

If (son='a') or (son='ı') or (son='o') or (son='u')

or (son='e') or (son='i') or (son='ö') or (son='ü')

or (son='A') or (son='I') or (son='O') or (son='U')

or (son='E') or (son='İ') or (son='Ö') or (son='Ü') then begin

If (son='a') or (son='ı') or (son = 'A') or (son='I') then gelen:= 'ın'

else If (son='o') or (son='u') or (son='O') or (son='U') then gelen:= 'un'

else If (son='e') or (son='i') or (son='E') or (son='İ') then gelen:= 'in'

else If (son='ö') or (son='ü') or (son='Ö') or (son='Ü') then gelen:= 'ün';

unlu:= sesli + '''' + gelen;

end;

son:= '';

son:= LeftStr(RightStr(sesli,1),1);

If (son='a') or (son='ı') or (son='o') or (son='u')

or (son='e') or (son='i') or (son='ö') or (son='ü')

or (son='A') or (son='I') or (son='O') or (son='U')

or (son='E') or (son='İ') or (son='Ö') or (son='Ü') then begin

If (son='a') or (son='ı') or (son = 'A') or (son='I') then gelen:= 'nın'

else If (son='o') or (son='u') or (son='O') or (son='U') then gelen:= 'nun'

else If (son='e') or (son='i') or (son='E') or (son='İ') then gelen:= 'nin'

else If (son='ö') or (son='ü') or (son='Ö') or (son='Ü') then gelen:= 'nün';

unlu:= sesli + '''' + gelen;

end;

son:= '';

son:= LeftStr(RightStr(sesli,2),1);