دلفي

چگوگل Google از شروع تا امروز

delphii — Sat, 15 Mar 2008 09:55:18 GMT

گوگل Google از شروع تا امروز (page rank)

نام گوگل از تغییر googol که به معنای (عدد 10 به توان 100) می باشد گرفته شده است. گوگل تاثیر زیادی در دنیای وب داشته و می توان از آن به عنوان انقلاب بزرگ نوآوری در اینترنت یاد نمود. فعل “Google” نیز اخیرا در جولای سال 2006 به فرهنگ لغت Oxford English و Merriam Websterاضافه شده است. این فعل به معنای موتور جستجوی گوگل برای دریافت اطلاعات از اینترنت می باشد.

در حالی که 10 سال پیش هیچ نامی از گوگل در دنیای وب وجود نداشت، ولی اکنون ابرقدرت بی چون و چرای موتورهای جستجو می باشد. گوگل اولین موتور جستجو در وب می باشد که 54% سهام بازار را در اختیار داشته و یاهو با 23% و MSN با 13% در رتبه بعد می باشند. گوگل بیش از یک میلیارد جستجو کننده در روز دارد.

o گوگل چگونه آغاز به کار کرد؟

ژانویه سال 1996 دو دانشجوی ph.D به نام Larry Puge و Sergey Brin در دانشگاه Stand ford گوگل را به عنوان پروژه دانشجویی آغاز کردند. پروژه موتور جستجویی بود که بتواند روابط بین سایت ها را آنالیز کند و این روابط باعث بهینه شدن نتایج جستجو گردد. در آن زمان موتورهای جستجو بر مبنای تعداد دفعات مورد جستجو رتبه بندی می کردند. به این سیستم رتبه بندی “Back Rub” گفته شد، چرا که این سیستم Back links یا لینک های بازگشتی به سایت را برای تخمین اهمیت سایت بررسی می کند. البته یک موتور جستجوی کوچک به نام Rank Dex نیزقبلا از این استراتژی بهره برده بود. پیج و برین بعد از اطمینان از اینکه صفحاتی که بیشترین لینک مرتبط با موضوع را به خود دارند، دارای مرتبط ترین هستند، موضوع تز خود را آغاز کرده و موتور جستجوی خود را بنا نهادند.

در ابتدا موتور جستجو از وب سایت دانشگاه استند فورد استفاده می کرد و نام دامنه آن google.standford.edu بود. سپس دامنه google.com در در 14 سپتامبر 1997 ثبت شده و شرکت Google Inc, نیزدر 7 سپتامبر 1998 در گاراژ یک دوست درMenlo Park کالیفرنیا شروع به کار نمود.(لازم به ذکر است که این گاراژ اخیرا توسط گوگل خریداری شده و از جازبه های توریستی به شمار می رود). سرمایه شرکت نیز یک میلیارد دلار بود.

با رشد چشمگیر کاربران در اینترنت، گوگل نیز محبوبیت زیادی یافت. سادگی صفحه گوگل برای جستجوگران و طراحی مناسب آن برای کاربران بسیار جذاب بود. این نوع طراحی فقط همانند موتور جستجوی قدیمی AltaVista بوده که با قابلیت بالای جستجوی گوگل نیز ادغام شد.

در سال 2000 گوگل آغاز به فروش تبلیغات نمود که این نوع تبلیغات مطابق با کلمات کلیدی جستجو شده بود. این قابلیت برای افزایش بازدهی تبلیغات بسیار مناسب بوده و به خصوص که برمبنای hit توسط کابران بوده است. تبلیغات نیز به صورت متن بوده (بدون گرافیک) و دلیل آن نیز بالا نگه داشتن سرعت بالا آمدن صفحه بود چرا که گوگل پرسرعت ترین موتور جستجو در این زمینه به شمار می رود. کلمات کلیدی نیز از ترکیب تعداد کلیک ها و مقدار قیمتی که سفارش دهنده آگهی توانایی پرداخت را برای آن کلمه کلیدی اعلام کرده، قیمت گذاری و فروخته می شود. البته این مدل تبلیغات و پرداخت آن از سایت Goto.com که بعدها به Yahoo Search Marketing تغییر یافت سرچشمه گرفته بود.

اين دستور رنگ فرم را خيلي جاب ميكند به طوري كه هر پيكسل يك رنگ

delphii — Tue, 06 Jun 2006 08:10:18 GMT

procedure fillGradientRect(canvas: tcanvas; Recty: trect; fbcolor, fecolor: tcolor; fcolors: integer);

var

i, j, h, w, fcolor: Integer;

R, G, B: Longword;

beginRGBvalue, RGBdifference: array[0..2] of Longword;

begin

beginRGBvalue[0] := GetRvalue(colortoRGB(FBcolor));

beginRGBvalue[1] := GetGvalue(colortoRGB(FBcolor));

beginRGBvalue[2] := GetBvalue(colortoRGB(FBcolor));

RGBdifference[0] := GetRvalue(colortoRGB(FEcolor)) - beginRGBvalue[0];

RGBdifference[1] := GetGvalue(colortoRGB(FEcolor)) - beginRGBvalue[1];

RGBdifference[2] := GetBvalue(colortoRGB(FEcolor)) - beginRGBvalue[2];

canvas.pen.style := pssolid;

canvas.pen.mode := pmcopy;

j := 0;

h := recty.bottom - recty.top;

w := recty.right - recty.left;

for i := fcolors downto 0 do

begin

recty.left := muldiv(i - 1, w, fcolors);

recty.right := muldiv(i, w, fcolors);

if fcolors>1 then

begin

R := beginRGBvalue[0] + muldiv(j, RGBDifference[0], fcolors);

G := beginRGBvalue[1] + muldiv(j, RGBDifference[1], fcolors);

B := beginRGBvalue[2] + muldiv(j, RGBDifference[2], fcolors);

end;

canvas.brush.color := RGB(R, G, B);

patBlt(canvas.handle, recty.left, recty.top, Recty.right - recty.left, h, patcopy);

inc(j);

end;

procedure TForm1.FormPaint(Sender: TObject);

var

Row, Ht: Word;

IX: Integer;

begin

fillGradientRect(form1.canvas, rect(0, 0, Width, Height), $FF0000, $00000, $00FF);

iX :=200 ;

Ht:=(ClientHeight + 512) div 256;

for Row := 0 to 512 do

begin

with Canvas do begin

Brush.Color := RGB(Ix,0,row);

FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht));

IX :=(IX-1);

end;

{Note, that the OnResize event should also call the FormPaint

method if this form is allowed to be resizable.

This is because if it is not called then when the

window is resized the gradient will not match the rest of the form. }

Titel فرم وكپشن فرم حركت ميكند

delphii — Tue, 06 Jun 2006 08:09:27 GMT

var

a:string;

procedure TForm1.FormCreate(Sender: TObject);

begin

a:='Look at here !...';

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var i:integer;

begin

application.title:=a;

form1.Caption:=a;

for i:=1 to (length(a)-1) do

a[i] := application.title[i+1];

a[length(a)] := application.title[1];

end;

اين كد موقع بستن فرم كارهاي جالبي با فرم مي كند

delphii — Tue, 06 Jun 2006 08:08:36 GMT

var

tutup : Boolean;

i : integer;

procedure TForm1.Timer1Timer(Sender: TObject);

var

reg1,reg2 : hrgn;

begin

if tutup = true then

begin

i:=i + 10;

reg1 := createroundrectrgn(0+i,0+i,width-i,height-i,20,20);

setwindowrgn(handle,reg1,true);

end;

if i >= width then

begin

tutup := false;

i := 1;

end;

if tutup = false then

begin

i := i + 10;

reg1 := createrectrgn(0,0,(width div 2)-i ,height);

reg2 := createrectrgn((width div 2)+i ,0,width,height);

combinergn(reg1,reg1,reg2,rgn_or);

setwindowrgn(handle,reg1,true);

if i >= width div 2 then

begin

tutup := true;

i := 1;

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

var

reg1 : hrgn;

begin

i := 1;

timer1.Enabled := true;

if MessageDlg('Do U wanna really exit now ?',

mtConfirmation, [mbYes, mbNo], 0) = mrYes then

canclose := true

else

begin

canclose := false;

timer1.Enabled := false;

reg1 := createroundrectrgn(0,0,width,height,0,0);

setwindowrgn(handle,reg1,true);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

tutup := True;

timer1.Enabled := false;

end;

قرار دادن یك كليد ميانبر در كليكراست منو form

delphii — Tue, 06 Jun 2006 08:08:00 GMT

private

procedure wmSysCommand(var msg:TMessage); message WM_SYSCOMMAND;

{...}

const

ID_ABOUT = WM_USER+1;

ID_HELP = WM_USER+2;

ID_NEWLINE = WM_USER+4;

{...}

implementation

{...}

procedure TForm1.FormCreate(Sender: TObject);

var

SysMenu:THandle;

begin

SysMenu := GetSystemMenu(Handle,False);

InsertMenu(SysMenu,Word(-1),MF_SEPARATOR,ID_NEWLINE,'');

InsertMenu(SysMenu,Word(-1),MF_BYPOSITION,ID_HELP, 'Help');

InsertMenu(SysMenu,Word(-1),MF_BYPOSITION,ID_ABOUT, 'About');

end;

procedure TForm1.wmSysCommand;

begin

case Msg.wParam of

ID_ABOUT : ShowMessage('About-Menu Item Pressed!');

ID_HELP : ShowMessage('Help-Menu Item Pressed!');

end;

inherited;

end;

تغيير Volume ويندوز

delphii — Tue, 16 May 2006 08:59:06 GMT

يك TrackBar در فرم خود قرار دهيد و Max value را به 15 تغيير دهيد و در رويداد OnChange آن كد زير را قرار دهيد:

كد:

procedure TForm1.TrackBar1Change(Sender: TObject);
var
Count, i: integer;
begin
Count := waveOutGetNumDevs;
for i := 0 to Count do
begin
waveOutSetVolume(i,longint(TrackBar1.Position*4369)*65536+longint(TrackBar1.Position*4369));
end;
end;

delphii — Tue, 16 May 2006 08:18:22 GMT

شرمندم که این چند روز نتونستم مطلبی بدم از دو سه هفته دگه شروع میکنم

delphii — Sun, 14 May 2006 09:57:44 GMT

اين بار چند تا فايل سورس pas گذاسشتم كه...

كه حتم دارم خيلي بدردتون ميخوره همشونم درباره ي شبكه هستن دو سه تا شونم مي تونن تبديل به component بشن، هرچند 4 تا بيشتر نيستن

لینک دانلود

عكس از دسكتاپ

delphii — Sun, 14 May 2006 09:47:18 GMT

لینک دانلود

Shut downکامپیوتر از طریق دلفی

delphii — Fri, 12 May 2006 10:54:23 GMT

اگه میخواید بدونید از طریق دلفی چطور میتونید کامپیوتر یک نفر رو Shut down کنید بیاید برنامه رو دانلود کنید ...

در ضمن نظر یادتون نره !!!

من این برنامه رو هم رو ویندوز 98 امتحان کردم و هم رو 2000 ... تو هر دو به درستی کار میکنه ...

فقط لطفا اگه کسی رو ویندوز xp هم تست کرد نتیجش رو به من هم بگه !!! آخه من xp رو سیستمم نبود

لینک دانلود