Programlama yapalım ve Öğrenelim.

İnternetten Download

Bu funsiyonu nasil kullanacaksiniz

s icinde index.htm gelir. artik siz bu S stringin icinde istediginiz gibi kontrollerinizi yapabilirsiniz :)

32 K kucuk ise bu yontemi deneyin. daha buyuk bir dosya ise once bunu diskinize kaydetmeniz gerekir. o zamanda

procedure gy_DownloadFile_to_file(const Url: string;File1,File2: String; Obj:TObject); kullanin

var s: string;

begin

s := gy_DownloadFile_to_str('http://www.koala-yazilim.tk/index.htm');

end;

---------------------------------------------------

uses wininet;

...

function gy_DownloadFile_to_str(const Url: string): string;

var

NetHandle: HINTERNET;

UrlHandle: HINTERNET;

Buffer: array[0..1024] of Char;

BytesRead: dWord;

begin

Result := ";

NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

if Assigned(NetHandle) then

begin

UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);

if Assigned(UrlHandle) then

{ UrlHandle valid? Proceed with download }

begin

FillChar(Buffer, SizeOf(Buffer), 0);

repeat

Result := Result + Buffer;

FillChar(Buffer, SizeOf(Buffer), 0);

InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);

until BytesRead = 0;

InternetCloseHandle(UrlHandle);

end

else

{ UrlHandle is not valid. Raise an exception. }

raise Exception.CreateFmt('Cannot open URL %s', [Url]);

InternetCloseHandle(NetHandle);

end

else

{ NetHandle is not valid. Raise an exception }

raise Exception.Create('Unable to initialize Wininet');

end;

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

Ağ üzerinden veya internetten ıp adresine göre dosya alma ve gönderne

//Formumuza 3 Edit, 1 openDialod, 1 saveDialog, 1 Button, 1 NMStrm, 1 NMStrmServ, 1 İmage Ekleyin ve asagıdakı kodları yazın

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.text:='127.0.0.1';

edit2.text:='6711';

edit3.text:='Adınızı Giriniz';

NMstrm1.timeout:=90000;

NMStrmServ1.Timeout:=90000;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

NMStrm1.host:=edit1.text;

end;

procedure TForm1.Edit2Change(Sender: TObject);

begin

NMstrm1.port:=strtoint(edit2.text);

nmstrmserv1.port:=strtoint(edit2.text);

end;

procedure TForm1.Edit3Change(Sender: TObject);

begin

nmstrm1.fromname:=edit3.text;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

Fstrm: TFileStream;

begin

if opendialog1.execute then

begin

FStrm:=TFilestream.create(Opendialog1.Filename, fmopenread);

try

NMStrm1.postit(Fstrm);

finally

FStrm.free;

end;

procedure TForm1.NMStrm1PacketSent(Sender: TObject);

begin

Caption:=inttostr(nmstrm1.bytessent)+'/'+ inttostr(nmstrm1.bytestotal);

end;

procedure TForm1.NMStrm1MessageSent(Sender: TObject);

begin

Caption:='Dosya Gönderildi';

end;

procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;

strm: TStream);

var

fstrm:tfilestream;

begin

Caption:=sfrom+'dan'+inttostr(strm.size)+'boyutunda dosya geldi';

if savedialog1.execute then

begin

if fileexists(savedialog1.filename) then

deletefile(savedialog1.filename);

fstrm:=tfilestream.create(savedialog1.filename, fmcreate);

try

fstrm.copyfrom(strm, strm.size);

finally

end;

if lowercase(Extractfileext(savedialog1.filename))='.bmp' then

image1.picture.loadfromfile(savedialog1.filename);

end;

end.

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

Ağ üzerinden veya internetten ıp adresine göre dosya alma ve gönderne

//Formumuza 3 Edit, 1 openDialod, 1 saveDialog, 1 Button, 1 NMStrm, 1 NMStrmServ, 1 İmage Ekleyin ve asagıdakı kodları yazın

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.text:='127.0.0.1';

edit2.text:='6711';

edit3.text:='Adınızı Giriniz';

NMstrm1.timeout:=90000;

NMStrmServ1.Timeout:=90000;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

NMStrm1.host:=edit1.text;

end;

procedure TForm1.Edit2Change(Sender: TObject);

begin

NMstrm1.port:=strtoint(edit2.text);

nmstrmserv1.port:=strtoint(edit2.text);

end;

procedure TForm1.Edit3Change(Sender: TObject);

begin

nmstrm1.fromname:=edit3.text;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

Fstrm: TFileStream;

begin

if opendialog1.execute then

begin

FStrm:=TFilestream.create(Opendialog1.Filename, fmopenread);

try

NMStrm1.postit(Fstrm);

finally

FStrm.free;

end;

procedure TForm1.NMStrm1PacketSent(Sender: TObject);

begin

Caption:=inttostr(nmstrm1.bytessent)+'/'+ inttostr(nmstrm1.bytestotal);

end;

procedure TForm1.NMStrm1MessageSent(Sender: TObject);

begin

Caption:='Dosya Gönderildi';

end;

procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;

strm: TStream);

var

fstrm:tfilestream;

begin

Caption:=sfrom+'dan'+inttostr(strm.size)+'boyutunda dosya geldi';

if savedialog1.execute then

begin

if fileexists(savedialog1.filename) then

deletefile(savedialog1.filename);

fstrm:=tfilestream.create(savedialog1.filename, fmcreate);

try

fstrm.copyfrom(strm, strm.size);

finally

end;

if lowercase(Extractfileext(savedialog1.filename))='.bmp' then

image1.picture.loadfromfile(savedialog1.filename);

end;

end.

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

WINDOWS UN KAPANMA ANININ TESPIT EDILMESI

Private bölümünde

procedure WMEndSession(var Msg : TWMEndSession); message WM_ENDSESSION;

Implementation bölümünde

procedure TForm1.WMEndSession(var Msg : TWMEndSession);

begin

if Msg.EndSession = TRUE then

ShowMessage('Windows kapatılıyor. ');

inherited;

end;

veya

procedure TForm1.WMQueryEndSession(var Msg : TWMQueryEndSession);

begin

if MessageDlg('Windows kapansınmı ?', mtConfirmation,

[mbYes,mbNo], 0) = mrNo then

Msg.Result := 0

else

Msg.Result := 1;

end;

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

WINDOWS UN KAPANMA ANININ TESPIT EDILMESI

Private bölümünde

procedure WMEndSession(var Msg : TWMEndSession); message WM_ENDSESSION;

Implementation bölümünde

procedure TForm1.WMEndSession(var Msg : TWMEndSession);

begin

if Msg.EndSession = TRUE then

ShowMessage('Windows kapatılıyor. ');

inherited;

end;

veya

procedure TForm1.WMQueryEndSession(var Msg : TWMQueryEndSession);

begin

if MessageDlg('Windows kapansınmı ?', mtConfirmation,

[mbYes,mbNo], 0) = mrNo then

Msg.Result := 0

else

Msg.Result := 1;

end;

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

YAZICI PAYLASIMI (REGISTER) 98-ME

USES Registry;

function GetPrintshare: string;

var

reg : TRegistry;

begin

reg := TRegistry.Create;

try

reg.Rootkey := HKEY_LOCAL_MACHINE;

reg.Openkey('systemCurrentControlSetServicesVxDVNETSUP', False);

Result := reg.ReadString('PrintSharing');

finally

reg.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

label1.caption:=GetPrintshare;

end;

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

YAZICI PAYLASIMI (REGISTER) 98-ME

USES Registry;

function GetPrintshare: string;

var

reg : TRegistry;

begin

reg := TRegistry.Create;

try

reg.Rootkey := HKEY_LOCAL_MACHINE;

reg.Openkey('systemCurrentControlSetServicesVxDVNETSUP', False);

Result := reg.ReadString('PrintSharing');

finally

reg.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

label1.caption:=GetPrintshare;

end;

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

USB CIHAZI TAKILIP CIKARILDIGINDAN HABERDAR OLMANIZI SAGLAYAN COMPONENT

unit U_Usb;

interface

uses

Windows, Messages, SysUtils, Classes, Forms;

type

PDevBroadcastHdr = ^DEV_BROADCAST_HDR;

DEV_BROADCAST_HDR = packed record

dbch_size: DWORD;

dbch_devicetype: DWORD;

dbch_reserved: DWORD;

end;

PDevBroadcastDeviceInterface = ^DEV_BROADCAST_DEVICEINTERFACE;

DEV_BROADCAST_DEVICEINTERFACE = record

dbcc_size: DWORD;

dbcc_devicetype: DWORD;

dbcc_reserved: DWORD;

dbcc_classguid: TGUID;

dbcc_name: short;

end;

const

GUID_DEVINTERFACE_USB_DEVICE: TGUID = '{A5DCBF10-6530-11D2-901F-00C04FB951ED}';

DBT_DEVICEARRIVAL = $8000; // system detected a new device

DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone

DBT_DEVTYP_DEVICEINTERFACE = $00000005; // device interface class

type

TComponentUSB = class(TComponent)

private

FWindowHandle: HWND;

FOnUSBArrival: TNotifyEvent;

FOnUSBRemove: TNotifyEvent;

procedure WndProc(var Msg: TMessage);

function USBRegister: Boolean;

protected

procedure WMDeviceChange(var Msg: TMessage); dynamic;

public

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

published

property OnUSBArrival: TNotifyEvent read FOnUSBArrival write FOnUSBArrival;

property OnUSBRemove: TNotifyEvent read FOnUSBRemove write FOnUSBRemove;

end;

implementation

constructor TComponentUSB.Create(AOwner: TComponent);

begin

inherited Create(AOwner);

FWindowHandle := AllocateHWnd(WndProc);

USBRegister;

end;

destructor TComponentUSB.Destroy;

begin

DeallocateHWnd(FWindowHandle);

inherited Destroy;

end;

procedure TComponentUSB.WndProc(var Msg: TMessage);

begin

if (Msg.Msg = WM_DEVICECHANGE) then

begin

try

WMDeviceChange(Msg);

except

Application.HandleException(Self);

end;

end

else

Msg.Result := DefWindowProc(FWindowHandle, Msg.Msg, Msg.wParam, Msg.lParam);

end;

procedure TComponentUSB.WMDeviceChange(var Msg: TMessage);

var

devType: Integer;

Datos: PDevBroadcastHdr;

begin

if (Msg.wParam = DBT_DEVICEARRIVAL) or (Msg.wParam = DBT_DEVICEREMOVECOMPLETE) then

begin

Datos := PDevBroadcastHdr(Msg.lParam);

devType := Datos^.dbch_devicetype;

if devType = DBT_DEVTYP_DEVICEINTERFACE then

begin // USB Device

if Msg.wParam = DBT_DEVICEARRIVAL then

begin

if Assigned(FOnUSBArrival) then

FOnUSBArrival(Self);

end

else

begin

if Assigned(FOnUSBRemove) then

FOnUSBRemove(Self);

end;

function TComponentUSB.USBRegister: Boolean;

var

dbi: DEV_BROADCAST_DEVICEINTERFACE;

Size: Integer;

r: Pointer;

begin

Result := False;

Size := SizeOf(DEV_BROADCAST_DEVICEINTERFACE);

ZeroMemory(@dbi, Size);

dbi.dbcc_size := Size;

dbi.dbcc_devicetype := DBT_DEVTYP_DEVICEINTERFACE;

dbi.dbcc_reserved := 0;

dbi.dbcc_classguid := GUID_DEVINTERFACE_USB_DEVICE;

dbi.dbcc_name := 0;

r := RegisterDeviceNotification(FWindowHandle, @dbi,

DEVICE_NOTIFY_WINDOW_HANDLE

);

if Assigned(r) then Result := True;

end;

end.

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

USB CIHAZI TAKILIP CIKARILDIGINDAN HABERDAR OLMANIZI SAGLAYAN COMPONENT

unit U_Usb;

interface

uses

Windows, Messages, SysUtils, Classes, Forms;

type

PDevBroadcastHdr = ^DEV_BROADCAST_HDR;

DEV_BROADCAST_HDR = packed record

dbch_size: DWORD;

dbch_devicetype: DWORD;

dbch_reserved: DWORD;

end;

PDevBroadcastDeviceInterface = ^DEV_BROADCAST_DEVICEINTERFACE;

DEV_BROADCAST_DEVICEINTERFACE = record

dbcc_size: DWORD;

dbcc_devicetype: DWORD;

dbcc_reserved: DWORD;

dbcc_classguid: TGUID;

dbcc_name: short;

end;

const

GUID_DEVINTERFACE_USB_DEVICE: TGUID = '{A5DCBF10-6530-11D2-901F-00C04FB951ED}';

DBT_DEVICEARRIVAL = $8000; // system detected a new device

DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone

DBT_DEVTYP_DEVICEINTERFACE = $00000005; // device interface class

type

TComponentUSB = class(TComponent)

private

FWindowHandle: HWND;

FOnUSBArrival: TNotifyEvent;

FOnUSBRemove: TNotifyEvent;

procedure WndProc(var Msg: TMessage);

function USBRegister: Boolean;

protected

procedure WMDeviceChange(var Msg: TMessage); dynamic;

public

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

published

property OnUSBArrival: TNotifyEvent read FOnUSBArrival write FOnUSBArrival;

property OnUSBRemove: TNotifyEvent read FOnUSBRemove write FOnUSBRemove;

end;

implementation

constructor TComponentUSB.Create(AOwner: TComponent);

begin

inherited Create(AOwner);

FWindowHandle := AllocateHWnd(WndProc);

USBRegister;

end;

destructor TComponentUSB.Destroy;

begin

DeallocateHWnd(FWindowHandle);

inherited Destroy;

end;

procedure TComponentUSB.WndProc(var Msg: TMessage);

begin

if (Msg.Msg = WM_DEVICECHANGE) then

begin

try

WMDeviceChange(Msg);

except

Application.HandleException(Self);

end;

end

else

Msg.Result := DefWindowProc(FWindowHandle, Msg.Msg, Msg.wParam, Msg.lParam);

end;

procedure TComponentUSB.WMDeviceChange(var Msg: TMessage);

var

devType: Integer;

Datos: PDevBroadcastHdr;

begin

if (Msg.wParam = DBT_DEVICEARRIVAL) or (Msg.wParam = DBT_DEVICEREMOVECOMPLETE) then

begin

Datos := PDevBroadcastHdr(Msg.lParam);

devType := Datos^.dbch_devicetype;

if devType = DBT_DEVTYP_DEVICEINTERFACE then

begin // USB Device

if Msg.wParam = DBT_DEVICEARRIVAL then

begin

if Assigned(FOnUSBArrival) then

FOnUSBArrival(Self);

end

else

begin

if Assigned(FOnUSBRemove) then

FOnUSBRemove(Self);

end;

function TComponentUSB.USBRegister: Boolean;

var

dbi: DEV_BROADCAST_DEVICEINTERFACE;

Size: Integer;

r: Pointer;

begin

Result := False;

Size := SizeOf(DEV_BROADCAST_DEVICEINTERFACE);

ZeroMemory(@dbi, Size);

dbi.dbcc_size := Size;

dbi.dbcc_devicetype := DBT_DEVTYP_DEVICEINTERFACE;

dbi.dbcc_reserved := 0;

dbi.dbcc_classguid := GUID_DEVINTERFACE_USB_DEVICE;

dbi.dbcc_name := 0;

r := RegisterDeviceNotification(FWindowHandle, @dbi,

DEVICE_NOTIFY_WINDOW_HANDLE

);

if Assigned(r) then Result := True;

end;

end.

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

Ord ile verilen ASCII ve SCAN karakter kodunu alma

Ord(karakter) işlemi verilen karakterin ASCII kodunu verir...

Edit1 in Onkeypress tetiklemesine aşağıdaki kodu yazınız...

begin

Edit2.Text:=Edit1.Text+' karakterinin ASCII kodu '+inttostr(ord(key));

Edit1.Clear;

end;

Tuşların ASCII kodundan başka SCAN kodu vardır... Kullanabilmek için

keyup veya keydown tetiklemesine (eventine) yazabiliriz... Mesela :

begin

Edit2.Text:=inttostr(key);

end;

SCAN kodları klavyedeki tuşları, ASCII kodları ise karakterleri temsil

eder...

Örneğin klavyedeki A harfinin iki tane ASCII kodu olmasına rağmen bir

tane SCAN kodu vardır... Çünkü küçük a ile büyük A nın ASCII kodları

farklıdır... Ayrıca F1, Alt, Ctrl, Page Up gibi tuşların ASCII kodu

yoktur ama SCAN kodları vardır...

Başarılar...

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

Ord ile verilen ASCII ve SCAN karakter kodunu alma

Ord(karakter) işlemi verilen karakterin ASCII kodunu verir...

Edit1 in Onkeypress tetiklemesine aşağıdaki kodu yazınız...

begin

Edit2.Text:=Edit1.Text+' karakterinin ASCII kodu '+inttostr(ord(key));

Edit1.Clear;

end;

Tuşların ASCII kodundan başka SCAN kodu vardır... Kullanabilmek için

keyup veya keydown tetiklemesine (eventine) yazabiliriz... Mesela :

begin

Edit2.Text:=inttostr(key);

end;

SCAN kodları klavyedeki tuşları, ASCII kodları ise karakterleri temsil

eder...

Örneğin klavyedeki A harfinin iki tane ASCII kodu olmasına rağmen bir

tane SCAN kodu vardır... Çünkü küçük a ile büyük A nın ASCII kodları

farklıdır... Ayrıca F1, Alt, Ctrl, Page Up gibi tuşların ASCII kodu

yoktur ama SCAN kodları vardır...

Başarılar...

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

AÇIKLAMA

Merhaba Arkadaşlar Değerli Zamanınızı Meşgul Ettiğimİçin Özür Dilerim.

Kısa Bir Söz Sözleyeceğim..

Delphi Türk Kodbank Artık Aktif Özelliğini Kayıp Ediyor.

Takip Ediyorum Kimse Kod Göndermiyor Artık Eskisi Bigi....

Bir de Sorubank Yapılıyor Diye Bir Şey Duymuştum.

Bu Konu Hakkında Bilgisi Olan var İse Lütfen Cevap Verirse Sevinirim..

Kolay Gelsin...

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

AÇIKLAMA

Merhaba Arkadaşlar Değerli Zamanınızı Meşgul Ettiğimİçin Özür Dilerim.

Kısa Bir Söz Sözleyeceğim..

Delphi Türk Kodbank Artık Aktif Özelliğini Kayıp Ediyor.

Takip Ediyorum Kimse Kod Göndermiyor Artık Eskisi Bigi....

Bir de Sorubank Yapılıyor Diye Bir Şey Duymuştum.

Bu Konu Hakkında Bilgisi Olan var İse Lütfen Cevap Verirse Sevinirim..

Kolay Gelsin...

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

AÇIKLAM

Merhaba Arkadaşlar Değerli Zamanınızı Meşgul Ettiğimİçin Özür Dilerim.

Kısa Bir Söz Sözleyeceğim..

Delphi Türk Kodbank Artık Aktif Özelliğini Kayıp Ediyor.

Takip Ediyorum Kimse Kod Göndermiyor Artık Eskisi Bigi....

Bir de Sorubank Yapılıyor Diye Bir Şey Duymuştum.

Bu Konu Hakkında Bilgisi Olan var İse Lütfen Cevap Verirse Sevinirim..

Kolay Gelsin...

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

AÇIKLAM

Merhaba Arkadaşlar Değerli Zamanınızı Meşgul Ettiğimİçin Özür Dilerim.

Kısa Bir Söz Sözleyeceğim..

Delphi Türk Kodbank Artık Aktif Özelliğini Kayıp Ediyor.

Takip Ediyorum Kimse Kod Göndermiyor Artık Eskisi Bigi....

Bir de Sorubank Yapılıyor Diye Bir Şey Duymuştum.

Bu Konu Hakkında Bilgisi Olan var İse Lütfen Cevap Verirse Sevinirim..

Kolay Gelsin...

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

Javascript in a web page from Delphi

// http://jansfreeware.com/ Bedava bir sürü program örneği

// The solution that I found is simple and can be extended as needed:

procedure TBackEditF.jscript1Click(Sender: TObject);

var

doc:IHTMLdocument2;

elem:IHTMLElement;

begin

try

doc:=sidebar.document as IHTMLdocument2;

elem:=doc.all.item('gateway',0) as IHTMLElement;

elem.click;

except

end;

(*The HTML document itself could be something like:

<html><head><title>Delphi - Javascript connection</title>

<script language='javascript'>

function myrouter() {

cmd=external.command external.command=''

}

</script>

</head>

<body>

<input type='hidden' id='gateway' onclick='myrouter()'>

</body></html>

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

Javascript in a web page from Delphi

// http://jansfreeware.com/ Bedava bir sürü program örneği

// The solution that I found is simple and can be extended as needed:

procedure TBackEditF.jscript1Click(Sender: TObject);

var

doc:IHTMLdocument2;

elem:IHTMLElement;

begin

try

doc:=sidebar.document as IHTMLdocument2;

elem:=doc.all.item('gateway',0) as IHTMLElement;

elem.click;

except

end;

(*The HTML document itself could be something like:

<html><head><title>Delphi - Javascript connection</title>

<script language='javascript'>

function myrouter() {

cmd=external.command external.command=''

}

</script>

</head>

<body>

<input type='hidden' id='gateway' onclick='myrouter()'>

</body></html>

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

Flash Action Script ipuçları

//tüm dosyalarım burada, hatta UGP DVD'si bile : www.yunus.projesi.com

//beklerim!

--1)-Tam ekran uygulama------------------------------------------------------------

$$fullscreen = true;

fscommand("fullscreen", "true");

_quality = "HIGH";

--2)-Tüm nesneleri tarama----------------------------------------------------------

for (name in _root)

{

var obj = _root[name];

var ad = obj._name;

if (ad.substring(0, 9) == "bati_car_")

{

a++;

}

--3)-Yeni nesne türetme------------------------------------------------------------

ara = _root.getNextHighestDepth();

_root.guney_araba.duplicateMovieClip("guney_car_"+ara, ara);

_root["guney_car_"+ara]._y = 200;

--4)-Zamanlayıcı(timer) oluşturma--------------------------------------------------

function ilerle(){

trace ("OK"); //output ekranına yazı yollama (Ctrl+Enter için geçerli)

}

myGlobalTimerIlerle = setInterval(ilerle, 100);

if (_root.islemBasladi == false)

{

clearInterval(myGlobalTimerIlerle);//timer iptal edilir

}

--5)-Sahne yüklendiğinde dışarıdan film yüklenmesi---------------------------------

ifFrameLoaded (1)

{

//gicik silme isleri! sebebini bilmiyorum.

for (name in _root)

{

removeMovieClip(_root[name]); //nesne silme

}

loadMovieNum("timer.swf", 10); //aktif swf'nin hemen yanında bulunmalıdır.

}

--6)-Fare ipuçları yapma-----------------------------------------------------------

on (rollOver) {

this.araba_adi.text = this._name;

this.araba_adi._visible = true;

}

on (rollOut) {

this.araba_adi._visible = false;

}

--7)-Alt nesnelere nasıl ulaşırız?-------------------------------------------------

for (name in _root)

{

//tüm tiptouch lar gizlenir

if (name.substring(0, 4) == "mlzm")

{

var objt = _root[name];

for (each in objt) //işte burası!

{

var objin = objt[each];

if (objin._name.substring(0, == "TipTouch")

{

objin._visible = false;

}

--8)-İki nokta arasındaki açının derecesi-----------------------------------------

aci = Math.atan((_root.sonNoktaY-_root.ilkNoktaY)/

(_root.sonNoktaX-_root.ilkNoktaX))

*180/Math.PI;

--9)-Dışarından metin dosya ekleme------------------------------------------------

loadVariables("english.txt", "_root");

örnek içerik:

&durdur_metni=Stop

&calistir_metni=Run

...

--10)-Nesne seviyesini değiştirme-------------------------------------------------

mx.behaviors.DepthControl.sendToBack(this);

mx.behaviors.DepthControl.bringForward(this);

--11)-İnternet adresi açmak-------------------------------------------------------

getURL("readme.txt","_blank");

--12)-Programı kapatmak-----------------------------------------------------------

on (release) {

fscommand("quit");

}

--13)-Rasgele komutu ve case komutu orneği----------------------------------------

function yonBelirle(kim) {

var objt = _root[kim];

yon = random(3);

switch (yon)

{

case 0 :

objt.yon_ileri._rotation = 0;

break;

case 1 :

objt.yon_ileri._rotation = 90;

break;

case 2 :

objt.yon_ileri._rotation = 270;

break;

}

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

Flash Action Script ipuçları

//tüm dosyalarım burada, hatta UGP DVD'si bile : www.yunus.projesi.com

//beklerim!

--1)-Tam ekran uygulama------------------------------------------------------------

$$fullscreen = true;

fscommand("fullscreen", "true");

_quality = "HIGH";

--2)-Tüm nesneleri tarama----------------------------------------------------------

for (name in _root)

{

var obj = _root[name];

var ad = obj._name;

if (ad.substring(0, 9) == "bati_car_")

{

a++;

}

--3)-Yeni nesne türetme------------------------------------------------------------

ara = _root.getNextHighestDepth();

_root.guney_araba.duplicateMovieClip("guney_car_"+ara, ara);

_root["guney_car_"+ara]._y = 200;

--4)-Zamanlayıcı(timer) oluşturma--------------------------------------------------

function ilerle(){

trace ("OK"); //output ekranına yazı yollama (Ctrl+Enter için geçerli)

}

myGlobalTimerIlerle = setInterval(ilerle, 100);

if (_root.islemBasladi == false)

{

clearInterval(myGlobalTimerIlerle);//timer iptal edilir

}

--5)-Sahne yüklendiğinde dışarıdan film yüklenmesi---------------------------------

ifFrameLoaded (1)

{

//gicik silme isleri! sebebini bilmiyorum.

for (name in _root)

{

removeMovieClip(_root[name]); //nesne silme

}

loadMovieNum("timer.swf", 10); //aktif swf'nin hemen yanında bulunmalıdır.

}

--6)-Fare ipuçları yapma-----------------------------------------------------------

on (rollOver) {

this.araba_adi.text = this._name;

this.araba_adi._visible = true;

}

on (rollOut) {

this.araba_adi._visible = false;

}

--7)-Alt nesnelere nasıl ulaşırız?-------------------------------------------------

for (name in _root)

{

//tüm tiptouch lar gizlenir

if (name.substring(0, 4) == "mlzm")

{

var objt = _root[name];

for (each in objt) //işte burası!

{

var objin = objt[each];

if (objin._name.substring(0, == "TipTouch")

{

objin._visible = false;

}

--8)-İki nokta arasındaki açının derecesi-----------------------------------------

aci = Math.atan((_root.sonNoktaY-_root.ilkNoktaY)/

(_root.sonNoktaX-_root.ilkNoktaX))

*180/Math.PI;

--9)-Dışarından metin dosya ekleme------------------------------------------------

loadVariables("english.txt", "_root");

örnek içerik:

&durdur_metni=Stop

&calistir_metni=Run

...

--10)-Nesne seviyesini değiştirme-------------------------------------------------

mx.behaviors.DepthControl.sendToBack(this);

mx.behaviors.DepthControl.bringForward(this);

--11)-İnternet adresi açmak-------------------------------------------------------

getURL("readme.txt","_blank");

--12)-Programı kapatmak-----------------------------------------------------------

on (release) {

fscommand("quit");

}

--13)-Rasgele komutu ve case komutu orneği----------------------------------------

function yonBelirle(kim) {

var objt = _root[kim];

yon = random(3);

switch (yon)

{

case 0 :

objt.yon_ileri._rotation = 0;

break;

case 1 :

objt.yon_ileri._rotation = 90;

break;

case 2 :

objt.yon_ileri._rotation = 270;

break;

}

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

Flash Action Script ipuçları

//tüm dosyalarım burada, hatta UGP DVD'si bile : www.yunus.projesi.com

//beklerim!

--1)-Tam ekran uygulama------------------------------------------------------------

$$fullscreen = true;

fscommand("fullscreen", "true");

_quality = "HIGH";

--2)-Tüm nesneleri tarama----------------------------------------------------------

for (name in _root)

{

var obj = _root[name];

var ad = obj._name;

if (ad.substring(0, 9) == "bati_car_")

{

a++;

}

--3)-Yeni nesne türetme------------------------------------------------------------

ara = _root.getNextHighestDepth();

_root.guney_araba.duplicateMovieClip("guney_car_"+ara, ara);

_root["guney_car_"+ara]._y = 200;

--4)-Zamanlayıcı(timer) oluşturma--------------------------------------------------

function ilerle(){

trace ("OK"); //output ekranına yazı yollama (Ctrl+Enter için geçerli)

}

myGlobalTimerIlerle = setInterval(ilerle, 100);

if (_root.islemBasladi == false)

{

clearInterval(myGlobalTimerIlerle);//timer iptal edilir

}

--5)-Sahne yüklendiğinde dışarıdan film yüklenmesi---------------------------------

ifFrameLoaded (1)

{

//gicik silme isleri! sebebini bilmiyorum.

for (name in _root)

{

removeMovieClip(_root[name]); //nesne silme

}

loadMovieNum("timer.swf", 10); //aktif swf'nin hemen yanında bulunmalıdır.

}

--6)-Fare ipuçları yapma-----------------------------------------------------------

on (rollOver) {

this.araba_adi.text = this._name;

this.araba_adi._visible = true;

}

on (rollOut) {

this.araba_adi._visible = false;

}

--7)-Alt nesnelere nasıl ulaşırız?-------------------------------------------------

for (name in _root)

{

//tüm tiptouch lar gizlenir

if (name.substring(0, 4) == "mlzm")

{

var objt = _root[name];

for (each in objt) //işte burası!

{

var objin = objt[each];

if (objin._name.substring(0, == "TipTouch")

{

objin._visible = false;

}

--8)-İki nokta arasındaki açının derecesi-----------------------------------------

aci = Math.atan((_root.sonNoktaY-_root.ilkNoktaY)/

(_root.sonNoktaX-_root.ilkNoktaX))

*180/Math.PI;

--9)-Dışarından metin dosya ekleme------------------------------------------------

loadVariables("english.txt", "_root");

örnek içerik:

&durdur_metni=Stop

&calistir_metni=Run

...

--10)-Nesne seviyesini değiştirme-------------------------------------------------

mx.behaviors.DepthControl.sendToBack(this);

mx.behaviors.DepthControl.bringForward(this);

--11)-İnternet adresi açmak-------------------------------------------------------

getURL("readme.txt","_blank");

--12)-Programı kapatmak-----------------------------------------------------------

on (release) {

fscommand("quit");

}

--13)-Rasgele komutu ve case komutu orneği----------------------------------------

function yonBelirle(kim) {

var objt = _root[kim];

yon = random(3);

switch (yon)

{

case 0 :

objt.yon_ileri._rotation = 0;

break;

case 1 :

objt.yon_ileri._rotation = 90;

break;

case 2 :

objt.yon_ileri._rotation = 270;

break;

}

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

Flash Action Script ipuçları

//tüm dosyalarım burada, hatta UGP DVD'si bile : www.yunus.projesi.com

//beklerim!

--1)-Tam ekran uygulama------------------------------------------------------------

$$fullscreen = true;

fscommand("fullscreen", "true");

_quality = "HIGH";

--2)-Tüm nesneleri tarama----------------------------------------------------------

for (name in _root)

{

var obj = _root[name];

var ad = obj._name;

if (ad.substring(0, 9) == "bati_car_")

{

a++;

}

--3)-Yeni nesne türetme------------------------------------------------------------

ara = _root.getNextHighestDepth();

_root.guney_araba.duplicateMovieClip("guney_car_"+ara, ara);

_root["guney_car_"+ara]._y = 200;

--4)-Zamanlayıcı(timer) oluşturma--------------------------------------------------

function ilerle(){

trace ("OK"); //output ekranına yazı yollama (Ctrl+Enter için geçerli)

}

myGlobalTimerIlerle = setInterval(ilerle, 100);

if (_root.islemBasladi == false)

{

clearInterval(myGlobalTimerIlerle);//timer iptal edilir

}

--5)-Sahne yüklendiğinde dışarıdan film yüklenmesi---------------------------------

ifFrameLoaded (1)

{

//gicik silme isleri! sebebini bilmiyorum.

for (name in _root)

{

removeMovieClip(_root[name]); //nesne silme

}

loadMovieNum("timer.swf", 10); //aktif swf'nin hemen yanında bulunmalıdır.

}

--6)-Fare ipuçları yapma-----------------------------------------------------------

on (rollOver) {

this.araba_adi.text = this._name;

this.araba_adi._visible = true;

}

on (rollOut) {

this.araba_adi._visible = false;

}

--7)-Alt nesnelere nasıl ulaşırız?-------------------------------------------------

for (name in _root)

{

//tüm tiptouch lar gizlenir

if (name.substring(0, 4) == "mlzm")

{

var objt = _root[name];

for (each in objt) //işte burası!

{

var objin = objt[each];

if (objin._name.substring(0, == "TipTouch")

{

objin._visible = false;

}

--8)-İki nokta arasındaki açının derecesi-----------------------------------------

aci = Math.atan((_root.sonNoktaY-_root.ilkNoktaY)/

(_root.sonNoktaX-_root.ilkNoktaX))

*180/Math.PI;

--9)-Dışarından metin dosya ekleme------------------------------------------------

loadVariables("english.txt", "_root");

örnek içerik:

&durdur_metni=Stop

&calistir_metni=Run

...

--10)-Nesne seviyesini değiştirme-------------------------------------------------

mx.behaviors.DepthControl.sendToBack(this);

mx.behaviors.DepthControl.bringForward(this);

--11)-İnternet adresi açmak-------------------------------------------------------

getURL("readme.txt","_blank");

--12)-Programı kapatmak-----------------------------------------------------------

on (release) {

fscommand("quit");

}

--13)-Rasgele komutu ve case komutu orneği----------------------------------------

function yonBelirle(kim) {

var objt = _root[kim];

yon = random(3);

switch (yon)

{

case 0 :

objt.yon_ileri._rotation = 0;

break;

case 1 :

objt.yon_ileri._rotation = 90;

break;

case 2 :

objt.yon_ileri._rotation = 270;

break;

}