Delphi component: TActiveMovie cracked version

TActivemovie cracked version-ийг хайж хайж л оллоо. Энэ компонентийг ашиглаад windows mediaplayer-ээр тоглож байгаа бүх видеог delphi дээр тоглуулах боломжтой. Та бүхэнд амжилт хүсье.

Download
link: http://rapidshare.com/files/160118973/TActiveMovie.v5.3.Full.Source.For.Delphi.BCB.rar.html
Pass: http://mprogr.blogspot.com
Read more...

Delphi MySql components

Delphi ашиглан програм бичдэг мэргэжил нэгт залуусдаа Delphi гээс MySql-ийн db-тэй шууд /direct connection/ холбогдох компонентуудыг танилцуулж байна.

1. mydac.v5.20.1.14.src.rar - download http://rapidshare.com/files/156973251/mydac.v5.20.1.14.src.rar.html

2. CoreLab.MySQL.Data.Access.Components.v5.20.for.Delphi.BCB.Full.Sources.zip - download
http://rapidshare.com/files/156975420/CoreLab.MySQL.Data.Access.Components.v5.20.for.Delphi.BCB.Full.Sources.zip.html

3. sbmc2006.4.5.rar - download http://rapidshare.com/files/156973368/sbmc2006.4.5.rar.html

Эдгээр компонентууд таны хайж байсан компонент мөн гэж найдаж байна. Мөн танд хэрэгтэй компонент олдохгүй байвал коммент бичиж үлдээгээрэй. Юмыг яаж мэдэх вэ надад тэр компонент чинь байж магад.

Та бүхэн хүлээн авч таалан соёрхоно уу.
Read more...

Windows delay problem

Мэргэжил нэгт нөхөд минь ээ надад нэг асуудал тулгараад байна. Delphi дээр sleep(1) гэсэн sleep(10) гэсэн хоёр ямарч ялгаагүй хугацаа зарцуулаад байна. Дан ганц Delphi биш C# дээр бас энэ асуудал гарч байсан. Уул нь sleep(1) нь 1 миллисекунд, sleep(10) нь 10 миллисекунд хугацаа зарцуулмаар юм. Гэхдээ бас дандаа ийм бишээ. Хааяа зүгээр болчихдог. Энэ их сонирхолтой байгаамаа. Яг юунаас шалтгаалаад ийм гажиг үүсээд байгааг би сайн мэдэхгүй байна. Та нарт ийм асуудал тулгарч байсан уу?

Энийг зүгээр болгодог нэг тохиолдол олсон л доо. Өөрийн компьютер дээрээ Virtual Machine (VMWare) ажиллуулахаар зүгээр болчихдог юм байна лээ.

Энэ асуудлыг шийдэх арга байна уу? Туслаарай.

Delphi код

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

TMProgrsThread = class (TThread)
FX, FY, FDelay: integer;
procedure Execute; override;
constructor Create(AX, AY, ADelay: integer);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

constructor TMProgrsThread.Create;
begin
inherited Create(False);
FX:=300;
FY:=AY;
FDelay:=ADelay;
FreeOnTerminate:=True;
end;

procedure TMProgrsThread.Execute;
begin
while not Terminated do begin
if FX>0 then FX:=FX-1 else FX:=300;
Form1.Canvas.Lock;
Form1.Canvas.Rectangle(FX, FY, FX+50, FY+50);
form1.Canvas.Unlock;
Sleep(FDelay);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var t1, t2: TMProgrsThread;
begin
t1:=TMProgrsThread.Create(10, 30, 1);
t2:=TMProgrsThread.Create(10, 100, 10);
end;

end.

Read more...

Delphi 6 + unicode

Би delphi 6-г ашиглаад 7, 8 жил болж байна. Саяхнаас unicode ашигласан програм бичих боломжтой component олоод бөөн баяр. Та бүхэнд TMS Unicode Component Pack v1.5.0.1 -ийг танилцуулж байгаадаа баяртай байна.

Энд delphi-ийн бүх стандарт component-уудыг unicode дэмждэг болгосон хувилбарууд байгаа. Та бүхэнд амжилт хүсье.

Download component

http://rapidshare.com/files/154771518/TMS_Unicode_Component_Pack_v1.5.0.1.rar.html

Read more...

Delphi send mail

Delphi 6 -аас email илгээх хамгийн амархан арга

var Smtp: TNMSMTP;

.....

(*************** SENDING EMAIL *****************)

if not Smtp.Connected then begin

Smtp.Host:=EmailServerHost;

Smtp.Port:=EmailServerPort;

Smtp.UserID:=EmailFromAddress;

Smtp.Connect;

end;


if Smtp.Connected then begin

with Smtp.PostMessage do begin

FromAddress:=EmailFromAddress;

ToAddress.Text:=EmailToAddress;

Body.Text:=EmailBody;

Subject:=EmailSubject;

if FileExists(ExportFileName) then Attachments.Add(ExportFileName);

end;

Smtp.SendMail;

end;

.....

Read more...

Earning AdSense Revenue: How Many Websites to Build? - Part 1

Google AdSense is really a great money making program for webmasters. Before the existence of AdSense program. Making money online used to be very difficult. You will need to have a high quality product, possess advanced Internet marketing skills and be willing to invest a sum of money for setting up professional sale website and launching advertising different campaigns. You either make big money because of you product is selling well or make little that not even enough for covering your cost if the product doesn't sell.

The launched of Google AdSense changed everything. People have more choices when thinking about making money online. They no longer have to sell products on the Internet in order to earn income online. With Google AdSense program, they can become an AdSense publisher and earn ad revenue by displaying AdSense ads on their content-based website.

The Basic of Google AdSense
The concept is pretty simple. You put up a website with good content, insert your AdSense ads into your content site, and then drive targeted traffic to your website. Part of your visitors who finish reading your content will read your AdSense ad and click on it. For each ad click, you usually earn anywhere between $0.10 to $0.60 depends on the niche of your site. Those publishers who gain large traffic have earned thousands or even ten thousands dollar of AdSense revenue.

Some publishers use one or two websites to make money with AdSense, some have their own networks containing a lot of websites displaying AdSense ads which make them lucrative AdSense revenue.

Why You Shouldn’t Focus on Many Websites
As an individual publisher, it is always best to focus on using only one or two websites for AdSense program. While building a network of websites such as building fifteen content websites in different niches seem to be a great idea to earn money with AdSense. The idea assumes that you can generate $3 to $5 AdSense revenue from each site daily making a daily total of $45 to $75 AdSense income if you own fifteen website. But, practically it is very hard to succeed this way.

To make AdSense works for you, each of your sites must have quality unique content. With 15 sites, it is not possible to create unique and good content for each site by you alone. Getting help from the professional writers seems to be a good solution. But those who can write quality content are often expensive to hire. You will have a lot of writer fee to pay before you earn a single dime from AdSense.

Another problem with this idea is the website-promotion part. To make each of the websites earns AdSense income; you must be able to drive a reasonable amount of targeted traffic to each site every day. With so many content sites you maintained, you will never have enough time and energy to generate consistent traffic to your all the sites. As you aren't staying focus, you could get tire and bored easily which end up none of the sites generate revenue for you.

The publishers who really make a big money with a network of websites are those who are serious about web publishing. They have a group of experts to help him/her to create unique quality content, handle web design and do AdSense optimization with sufficient financial resources to back their plan.
Read more...

Cashfiesta hack буюу Cashfiesta-г автоматаар явуулагч

Сайн байна уу? Cashfiesta-г автомажуулж зогсолтгүй алхуулдаг програмаа та бүхэнд тарааж байгаадаа сэтгэл өндөр байна.

Програмыг ажиллуулахын тулд та дараах алхамуудыг хийнэ.
1. Зураг дээр байгаа шиг taskbar-ийг дэлгэцийн баруун талд байрлуулах хэрэгтэй.
2. FiestaBar - аа ажиллуулна.
3. Manager.exe-г ажиллуулна.

Анхаарах зүйл
Зураг дээр 1 гэж тэмдэглэсэн хүрээн дотор cashfiesta-ийн trayicon байрлаж байх ёстой шүү.

За ингээд л таны fiestaboy хэзээ ч зогсохгүй алхасаар л байх болно.

http://www.dba.mn/play/CashFiesta.rar

Нууц үг (password): http://mprogr.blogspot.com
Та бүхэнд амжилт хүсье!
Read more...

Cashfiesta-д маань 35 доллар цугларсан байна.

Сайн байцгаана уу? Сүүлийн хэдэн сар cashfiesta гаа ажиллуулсангүй баахан л удлаа. Өнөөдрөөс ажиллуулж эхэллээ. Нэгэнт л 35 доллар болчихсон юм яаж ийж байгаад 50 доллар болгоод үзье гэж бодлоо. Тэгээд л чек ирэх эсэхийг нь шалгахаас. Монголд чекийг нь авч үзсэн хүн байдаг болов уу? байдаг бол холбоо бариарай. Баярлана шүү. Аан тийм миний хийсэн cashfiesta-г автомараар явуулдаг програмыг удахгүй интернэтэд байрлуулнаа. Та бүхэн авч хэрэглээрэй.

Бүгдэд нь амжилт хүсье
Read more...

Мөнгөө олсоор л байна уу

Түрүү сард овоо доллар олно гэж найдаж байсан боловч ажил ихтэй байсаар олигтой оноо ч цуглуулж чадсангүй. Мөн жоохон эндүүрсэнээсээ болоод special offers-д бүртгүүлээгүйгээ мартчихаж. Нэг ёсондоо түрүү сард хариуцлага муутай л байлаа.

Энэ зурган дээр дарж сонирхоно уу. Миний статистик байгаа.

Миний өөрийн хийсэн програмыг хүмүүс их асууж байна. Юун түрүүнд гэж хэлэхэд би та бүхэнд энэ програмаа зүгээр л өгөхгүй ээ. Миний доор referral болсон хүнд л үнэ төлбөргүй програмаа өгнөө. Миний referral-д нэгдэх бол http://www.cashfiesta.com/php/join.php?ref=mprogr1 гэсэн линкээр орж бүртгүүлээрэй.

Энэ програм нь зөвхөн fiestaboy-ийг л тасралгүй алхуулах зориулалттайг анхаарна уу.

Амжилт хүсье! Надтай холбоотой байгаарай. Шинэ сонин мэдээг цаг алдалгүй блогтоо нийтлэх болно
Read more...

Cashfiesta чинь сардаа ойролцоогоор хэдэн оноо цуглуулж байна даа?

Миний cashfiesta сард 150 - 250 мянган оноо цуглуулдаг. Гэхдээ энэ оноог яг өөрөө цуглуулна гэвэл үлгэрийн далай болох юм байна лээ. Харин нэг жижигхэн програм хийгээд, тэр програм маань оноог тасралтгүй цуглуулахад тусалдаг юм. Зочин та миний өөрийн хийсэн тэр програмыг авахыг хүсвэл миний блогт comment дээр өөрийн мэйл хаягаа бичээрэй. Би ямар ч үнэ төлбөргүйгээр өгнө шүү. Та бүхэнд амжилт хүсье. Comment бичээрэй.
Read more...

Cashfiesta - д маань мөнгө нэмэгдсээр л ...

cashfiesta - д маань 11-р сард $9, 12-р сард 8 доллар орлоо. Нийтдээ 30 орчим доллартай болчихсон байгаа. Чек авахын тулд доод тал нь 50 доллартай байх хэрэгтэй. Нэгдүгээр сард 20 орчим доллар орно гэж найдаж байгаа. Хэрэвээ чек аваад чекээ бэлэн мөнгө болгоод үзчихвэл ч сайхан. Тэр мөчийг үзэхэд сар гаруй хугацаа үлдээд л байна даа. Энэ сардаа яагаад 20 доллар олно гээд найдаад байгаа вэ гэвэл нөгөө л нэг special offers-тэй холбоотой л доо. Өмнө нь дандаа нэг special offers - д бүртгүүлж чаддаг байсан /өөрөөр хэлбэл individual rate = 0.04/. Харин энэ сард 2 special offers авсан гэж найдаж байна /өөрөөр хэлбэл individual rate = 0.33$/. Энэ сарын individual rate нь дараа сарын сүүлээр батлагдаж оноогоо үржүүлдэг л дээ. Individual rate гэдэг нь таны цуглуулсан онооны 1000 оноо бүрт олгох долларын хэмжээ юм. Дараа сониноо бичнээ.
Read more...

Cashfiesta - гаар мөнгө олох

Монголчууд интернэтээр дүүрэн яг ийм cashfiesta-ийн сурталчилгаа хийсэн байх юм. Яг тэгээд үүнийгээ ашиглаад тэдэн доллар авлаа гэсэн юм нэг ч үгүй байх юм. Миний хувьд бүртгүүлээд 4 сар орчим болж байгаа. Одоо миний авах доллар $21 болчихсон байгаа. энэ сард дор хаяж 10 доллар олно гэдэгтээ итгэлтэй байгаа. Учир нь яаж special offer -д бүртгүүлэх аргаа олчихсон. Өмнөх сард $9 авсан. Мөн оноогоо цаг алдалгүй цуглуулах боломжтой програм зохиосон. Хүсвэл энэ програмыг та нарт үнэгүй өгч болно. Хамгийн гол нь та нар миний referal болох л хэрэгтэй. Би монголд анх удаа cashfiesta-гаас мөнгө авсан хүн болно гэдэгтээ итгэлтэй байгаа шүү. та бүхэнд амжилт хүсье. Http://mprogr.blogspot.com - руу зочилж дэлгэрэнгүй мэдээлэл аваарай
Read more...

Pascal дээрх график горим ба түүнтэй ажиллах №1

Сайн байна уу? Та бүхэнд энэ өдрийн мэнд хүргэе. Програмчлалын pascal хэл сонирхон судалж буй сурачидад болон хүүхэд залуучууддаа зориулан өөрийн мэддэг өчүүхэн зүйлсээ хуваалцахаар шийдлээ. Энэ удаадаа би та бүхэнд pascal-ийн стандарт биш график горимын талаар хэдэн зүйл сонирхуулъя.

1. График горим тогтоох

Procedure SetGraphMode(aMode: byte); Assembler;

Asm

Mov ah, 00

Mov al, aMode

Int 10h

End;

Энд байгаа процедур нь DOS-ийн дэлгэцийн стандарт горимуудыг тогтоох зориулалттай юм. Үүний aMode гэсэн аргументд дараах утгуудыг өгч болно. Үүнд:

Утга	Төрөл	Хэмжээс	Үсэг	Өнгө	Нэр	Хаяг
$0	Text	40x25	8x8	16	CGA,EGA	B800
$1	Text	40x25	8x8	16	CGA,EGA	B800
$2	Text	80x25	8x8	16	CGA,EGA	B800
$3	Text	80x25	8x8	16	CGA,EGA	B800
$4	Graphic	320x200	8x8	4	CGA,EGA	B800
$5	Graphic	320x200	8x8	4	CGA,EGA	B800
$6	Graphic	640x200	8x8	2	CGA,EGA	B800
$7	Text	80x25	9x14	16	MDA,EGA	B000
$d	Graphic	320x200	8x8	16	CGA,VGA	A000
$e	Graphic	640x200	8x8	16	CGA,VGA	A000
$f	Graphic	640x350	8x14	3	CGA,VGA	A000
$10	Graphic	640x350	8x14	4	CGA,VGA	A000
$11	Graphic	640x480	8x16	2	VGA	A000
$12	Graphic	640x480	8x16	16	VGA	A000
$13	Graphic	320x200	8x16	256	VGA	A000

Хүснэгтэд буй $0 - $13 гэж тэмдэглэгдсэн багана нь дээрх процедурын aMode гэсэн аргументд өгөх утга юм. $13 = 19 гэдгийг та нар мэдэх байхаа. $ гэсэн тэмдэг нь тухайн тоо 16тын тооллын системийнх гэсэн үг шүү дээ.

$13 горим нь тоглоом хийхэд хамгийн тохиромжтой нь гэж би боддог. Учир нь энэ хамгийн их өнгөтэйд л байгаа юм.

2. Дээрх горимуудаас график төрлийн горимуудыг ашиглан програм бичих гэж байгаа бол pascal хэлний стандарт GRAPH модулийн ямар ч функц ажиллахгүй. Тийм болохоор та бүхэнд дээрх горим дээр цэг зурах процедурыг хийж өгье.

Procedure MyPutPixel(x, y: integer; c: byte);

Begin

Mem[$a000: (x-1)+(y-1)*320] := c;

End;

Энд x, y нь зурах гэж буй цэгийн координат, c нь зурах цэгийн өнгө юм.

Өнөөдрийн хувьд энэ хүргээд дуусгая. Цайны цаг дуусчихлаа. Дараа үргэлжлүүлье.

Read more...