interface
uses Messages, Windows, SysUtils, Classes, CutlineU,
Controls, Forms, ExtCtrls, Graphics, StdCtrls, Dialogs;
type
TXPImage = class;

TShowPicture = class(TThread)
private
Fidx: integer; {当时显示的数}
//I:integer;
FItem: TXPImage;
protected
procedure Execute; override;
public
procedure SetPicture;
constructor Create(Aowner: TXPImage);
end;

TXPImage = class(TComponent)
private
FActive: Boolean; //当前是否击活
FInterval: Integer;
//FTimer :TTimer;
FImgbmp: TBitmap;
//FImage: TImage;
FImage: TCutline;
FImageList: TImageList;
FshowPic: TShowPicture;
procedure SetActive(Value: Boolean); virtual;
procedure SetInterval(Value: Integer);
procedure SetImageList(Value: TImageList);
procedure SetImage(Value: TCutline);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Start;
// Procedure Pause;
//Procedure Continue;
procedure Stop;
property Active: Boolean read FActive write SetActive;
property Interval: Integer read FInterval write SetInterval;
property Imgbmp: TBitmap read FImgbmp write FImgbmp;
property ImageList: TImageList read FImageList write SetImageList;
//Property Image:TImage Read FImage Write SetImage;
property Image: TCutline read FImage write SetImage;

//Property showPic:TShowPicture Read FshowPic;
end;

implementation

uses
CommonU, DbugIntf;

{ TXPImage }

constructor TXPImage.Create(AOwner: TComponent);
begin
inherited;
FInterval := 800;
FImgbmp := TBitmap.Create;
//FImage := TCutline.Create(AOwner);
//FImageList := TImageList.Create(AOwner);
//FTimer := TTimer.Create(AOwner);
//FImage := TImage.Create(AOwner);
end;

destructor TXPImage.Destroy;
begin
if Assigned(FImgbmp) then
FImgbmp.Free;
//FTimer.Free;
//FImage.Free;
//FImageList.Free;
inherited;
end;

procedure TXPImage.SetActive(Value: Boolean);
begin
FActive := Value;
if (FshowPic <> nil) and Value then
FshowPic := TShowPicture.Create(Self)
else
FshowPic.Terminate;
end;

procedure TXPImage.SetImageList(Value: TImageList);
begin
FImageList := Value;
end;

procedure TXPImage.SetInterval(Value: Integer);
begin
FInterval := value;
end;

procedure TXPImage.SetImage(Value: TCutline);
begin
FImage := Value;
end;

procedure TXPImage.Start;
begin
FActive := true;
//创建线程
FshowPic := TShowPicture.Create(Self);
//FshowPic.Resume;
end;

procedure TXPImage.Stop;
begin
//FActive:= false;
if FshowPic <> nil then
begin
FshowPic.Terminate;
FshowPic := nil;
end;
end;

{procedure TXPImage.Continue;
begin
IF FshowPic<> nil then
begin
FActive:= true;
FshowPic.Resume;
end;
end;

procedure TXPImage.Pause;
begin
IF FshowPic<> nil then
FActive:= false;
end;}

{ TShowPicture }

constructor TShowPicture.Create(Aowner: TXPImage);
begin
inherited Create(false);
FItem := Aowner;
Fidx := 0;
FreeOnTerminate := true;
end;

procedure TShowPicture.Execute;
//var
// nTickCount: Cardinal;
begin
inherited;
while not Terminated do
begin
if FItem.Active then
begin
//Application.ProcessMessages;
synchronize(SetPicture); {注意此处}
Fidx := Fidx + 1;
if Fidx >= FItem.FImageList.Count then
Fidx := 0;
if terminated then
exit;
//Item.;
Sleep(FItem.FInterval);

// nTickCount := GetTickCount;
// while FItem.Active and (GetTickCount - nTickCount < FItem.FInterval) do
// Application.ProcessMessages;
end
else
begin
Suspend;
end;
end;
end;

procedure TShowPicture.SetPicture;
var
sMsg: string;
begin

//SendMethodEnter(Format('“%s” 播放动画中的设置图片', [FItem.Image.Caption]));
if FItem.Imgbmp <> nil then
begin
try
//SendDebug('开始从 Imagelist 中获取图片');
FItem.FImageList.GetBitmap(Fidx, FItem.Imgbmp);
//SendDebug('完成从 Imagelist 中获取图片');
//FItem.FImageList.GetBitmap(Fidx,FItem.FImage.Picture.Bitmap);
//SendDebug('开始从把图片给 Cutline 图片');
FItem.Image.SetImage(FItem.Imgbmp);
//SendDebug('完成从把图片给 Cutline 图片');
//SendDebug('开始刷新 Cutline');
//FItem.FImage.Refresh;
//SendDebug('完成刷新 Cutline');
application.ProcessMessages;
except
on E: Exception do
begin
sMsg := Format('错误位置：[%s] 类：[%s] 名称：[%s] 错误类：[%s] 错误信息：[%s]',
['播放动画' ,ClassName, FItem.Image.Caption, E.ClassName, E.Message]);
SendDebugEx(sMsg, mtError);
WriteLog(sMsg);
end;
end;
end;
//SendMethodExit(Format('“%s” 播放动画中的设置图片', [FItem.Image.Caption]));
//SendSeparator;

end;

end.

备注：此文于 2004-7-28 首发于太傻论坛 - 〉英语综合学习讨论版

　 　通过半年多的日夜苦干，软件终于编出来了。由于我觉得自己的软件功能比较新颖，编程的技术也很好，以为只要一发布就会大家抢着注册购买，也可以像那些成 名的共享软件作者一样每月坐拿几万元，结果却是令我想象不到的，在发布后的第一年，只有1个人注册，只得到可怜的几十元。我这下才认识到了软件推广的重要 性 — 我们作为技术人员，往往是重技术轻营销，结果是再好的软件也由于无人知晓而只能孤芳自赏。我这时就有意在网上搜索软件推广方面的文章，国内的资料少就到国 外的共享软件论坛去查，另外还结合自己在实际推广中的经验教训不断改进自己的推广技巧，慢慢地在第二年软件推广有了初步起色，拿到了一千多元。接连在共享 软件领域摸爬滚打了几年后，现在终于每月都有近万元入账。虽然比起那些共享大牛们来说这点钱还不足挂齿，但自己认为还算不错了。为了避免程序员们重走像我 当初的很多弯路，现在把自己的经验教训写出来，给大家在软件推广方面一点启示。

　　第一、 对软件本身的要求。

　　也许大家会觉得奇怪，不是讲软件怎么推广吗？怎么会讲起软件本身的要求来了呢？

　　其实一点也不出奇，高楼万丈在于基础是否稳固。没有一个好的软件产品而去空谈什么推广，不要说很少有成功的，即使是推广出去了，客户拿到手之后也会有受骗上当的感觉，退货以及退款，再加上对你的软件的负面宣传会搞得你焦头烂额的。

　 　那么怎么才算是一款好的软件呢？首先你的软件要新颖独特，要有别的软件没有而大家又需要的功能。很多程序员常犯的一个毛病是，他们喜欢从自己的技术出 发，编自己喜欢编的东西，或者干脆就是卖弄自己的编程技术。其实作为用户来说，他们不懂也根本不会关心你的软件中使用了什么先进的编程技术，他们所关心的 是这个软件能给自己带来什么有用的东西。有些程序员没有自己的独特的思路，总是人云亦云，一看到网络上什么软件热门了，马上就进行仿造，现在不是QQ流行吗，他也跟着编一个聊天软件；不是FlashGet很热门吗，他也随着编一个下载软件。这样的软件能销出去才怪了呢。

　 　在这里我的经验是，如果你不知道编什么样的软件才能好销，你就站在普通电脑用户的角度来考虑问题。要一切从用户观念出发，要从用户的要求入手，只要是用 户需要的功能，那怕软件只有这一个功能，只要别人的软件还没有包含，你在这里就有成功的可能。例如周弈的MP3 CD Maker，功能并不复杂，但大家需要这个功能，而当时的很多流行软件如Nero等并不具有，因此他凭这一点就可以月进上万美金。

　　还 有就是，软件本身必须尽可能完美，也就是没有什么明显的Bug。现在有许多人在软件还没有经过什么测试的情况下就急着发布，结果别人一用到处都是问题，这 样的软件给用户的印象很差，只会给软件造成很大的负面影响。 我的经验是，软件编好后至少要经过两个月的测试。不但是自己要彻底测试，而且要交给你身边的亲戚朋友测试，当然能交给普通的用户测试就更好了。也许你会说 别人会愿意这样做吗？我的经验是只要答应测试完后免费给他们正式版的注册码，他们是很乐意为你测试的。

　　第二、 软件推广的常用方法

　 　首先，当然是把你的软件发布到大型的软件下载网站，如华军软件园、天空软件站等，至于那些成百个小型的下载网站嘛，就没有必要一个一个发布了。当初我也 想在这些小软件下载站发布，可很多根本就没有发布软件的页面。有的给个Email地址就算不错了（不过我用电子邮件发布软件后也像泥牛入海，杳无音信）， 有的干脆只有一个QQ号码。其实据我观察，只要你在华军软件园、天空软件站等发布成功，就会有不少软件下载网站也跟着转载。这样也好，省去了我的不少时 间。

　　其次，是要专门为你的软件建立一个网站。也许你会说，我不是已经把软件发布到其他网站了吗？为什么自己还要费力去做一个网站。原 因很简单，别人的网站是别人的，你自己必须也要专门有个网站来推广，同时这个网站也要负责搜集用户的信息反馈等，另外更重要的是：共享软件重在服务，你还 要依靠这个网站来对你的软件用户提供技术支持等服务。值得特别要提醒的是，你的网站要做得很专业，要使得用户进入你的网站后能产生你们有着强的技术能力的 印象。千万不要认为自己是做软件的，不懂得编网站，就随便制作一个对付了事。我有个朋友，下载某软件试用后曾经想购买正式版，可一进入作者的简陋的网页， 就没有了购买的欲望。因为你的网站做得差，容易使别人联想到你的编程技术以及服务也差。所以说，差的网站不但不能对你的软件起到推广作用，还相反可能把你 的潜在客户赶跑。

　　其实既然你都能够编得出软件，要设计出一个网站也不应该是什么多难的事，关键还是在于你舍不舍得下功夫。如果你实在 没有时间学习编写网页，那就花点钱请专门的网页设计公司帮你制作一个吧。也许你又会说，那我没有钱怎么办。这里，我叫你一个密招（我轻易不会教给别人 的），去大型下载网站下载排名TOP 10之内的软件的官方网站中找一个最符合你软件风格的，用Frontpage 把整个网页照搬下来，把文字及图片换成你的，而保留原来网站的布局及CSS样式，这样一个专业的软件推广网站就诞生了。这一招我在当初也使用过，不过后来 自己学习了网站设计方面的知识后，就不断加以改进完善，早已经比原来的别人的网站都专业多了。

　　网站有了之后，也不是就万事大吉了，网站本身也有个推广的问题。要根据你的软件，设计一些关键字，把这些关键字用在你的网站的标题以及网站内容之中，使得别人在用这些关键字在GOOGLE等搜索引擎上搜索时，能很快找到你的网站。当然，网站的推广不是我们这里要讨论的话题，你在网络上应该能方便地找到这些资料。如果你能把有关你软件的关键字做到GOOGLE搜索结果的第一页，那么恭喜你，你离成功不远了。
再次，是有关软件的广告宣传问题。

　　有人会说了，那很简单，找一个流量大的网站如新浪、网易， 在上面打广告宣传不就得了。是啊，如果你每月能付得起几万元的广告费这样做当然无可厚非。不过如果你每月有几万元的收入，我看也就用不着靠共享软件吃饭 了。其实打广告是很有学问的，不是单单看网站的流量大小，而是要针对你的软件的潜在用户的情况来定。关键是你要仔细分析来该网站的浏览者是什么样的人，如 果与你软件的潜在用户群相同，及时网站的流量不是特别大，你也可以在上面打广告。这样你花的钱不多，但正中你的目标用户，广告的效果是很好的。
　
　 　我有个行业应用软件，一开始在一般的软件下载站打广告，但发现效果并不好，因为这些用户只是来寻找一些常用系统工具软件的，对我的软件并不感兴趣。后来 我发现有个软件商务网http://www.bizsofts.com 的浏览者与我软件的用户群相吻合，就在这个网站上打广告了。广告是文字类型的，在网站的“热销软件”栏目中，由于该栏目出现在软件信息的所有的页面中，所 以浏览量也不少。最主要的是广告费不贵，每月才100元，广告发布后效果很不错。现在也有人在做GOOGLE ADWORDS文字广告，不过我还没有试过。

　　第三、 软件如何推向海外

　　你的软件已经在国内推广了，还要不要走向 海外？回答是肯定的。由于国内存在对盗版解密等活动打击不力的问题，你辛辛苦苦工作出来的劳动成果，给别人破解后可能全部付诸东流。所以在国内防止软件被 破解是一个重大的课题，对付破解的问题我留到下一点再仔细讲。而在国外，由于对于盗版以及破解打击的力度较大，另外用户的正版意识普遍比国内要高，所以付 钱注册购买的人也相对较多。所以你的软件在国外推广是很有必要的。就拿我来说，现在软件收入的大部分就是来自海外用户。

　　在海外推广软 件的第一步也与国内相类似，也要把软件提交到大型的软件下载网站。国外的大型下载网站主要有两个：一个是www.download.com ，另一个是 www.tucows.com 。与国内软件站不同的是，在download.com 上发布软件是要收费的，每提交一次要收79美金，UPDATE一次也要收79美金。如果你真想把软件推向海外的话，这笔钱是不能省的。因为 download.com 实在是太热了，名符其实是全球第一的软件下载站，如果不在这里发布，你会损失一大半的软件用户。另一个软件下载网站 tucows.com 虽然号称能免费发布，其实你如果真这样做的话，你会大失所望的。我有个软件，一月份就向 tucows.com 提交了，可是到六月份还没有发布，进入作者管理界面一查，是在 8340个待审查的软件中排第 1367 位，可能一两年后才有可能发布。后来干脆花了 59美元“插队费”，结果没过两天就发布了。

　　另外，在国外一般都是找一家代理公司帮你收钱，每月定期寄支票给你。代理行业在国外已经 是一个很成熟的行业了，不用担心代理会不给钱你。比较大一点的代理有：www.RegNow.com 设施最完备的代理，需要开户费。www.Qwerks.com 免费开户，据说信誉极好。还有www.Shareit.com 也是一家不错的软件代理公司。 还有www.RegSoft.com 不过据说反映一般。

　　除了把软件发布到这些下载或代理网站之外，你自己也要相应有一个英文网站。如果你的英文不是特别好的话，奉劝你找一个英语特别棒的朋友或干脆花钱请专业的英语专家翻译一遍再发布你的网站，否则你的网站不但起不到推广作用，还会给国外用户留下很差的印象。

　 　要想软件推向海外，除了以上介绍的方法之外，重视国外用户的反馈信息以及搞好服务也是特别重要的。我有个软件发布在 download.com 后，大约过了一个月看到上面有一个评论，把我的软件评价为最差，并且加了一大堆评语：说他虽然是个捷克人，英语并不是他的母语，却也发现了我软件中的英语 是terrible English ，充满了错拼的单词，不存在的单词等；另外软件打开以后，界面没有操作提示，根本不知怎么使用，功能也不完善；在1024 x 768的分辨率下无法满屏显示等。总之把我的软件贬得一无是处，用他的话来说是： Terrible, just terrible。

　 　一开始，我也觉得很灰心丧气，但后来我仔细一想，何不趁此改正Bug，并升级软件呢。由于在download.com中找不到评价者的联系方式，我就在 软件的注册者信息中找到他的Email地址，把我改正过后的软件电邮给他，并诚恳地请他继续指正我的错误。果然不久他就回复了我的EMAIL，在邮件中他 一条一条地指出了我的其他错误。我借此机会进一步更正错误并把软件升级到了2.0 ，使我的软件上了一个大台阶。总之，重视用户对你软件的评价及批评，积极面对用户的意见，这样即使是坏事也能变成好事。

　　另外在国外， 是会遇到别人购买你的软件后觉得不满意而要求退款的。PayPal以及其他的付款方式都有几十天内不满意可以要求退款的条文。对于要求退款的用户，他如果 坚持要退是一定可以退的。所以一般都是根据用户要求直接就退给他，并告诉他Keep my software as a gift，反正他已拿到注册码了，你做什么都没用，不如来个顺水人情。即使他退完款后又来信要求你提供技术服务，你也要尽可能帮助他。能做到这点你的服务 才能算真正到家了。

　　第四、 如何应对软件的破解

　　在国内推广软件，你要面对的最大问题莫过于软件被破解了。很多软件作者反映说，原来软件在被破解前交费注册的人还不少，但被破解后收入就直线下降，连成本都收不回来。您想，有了免费的东西人们还交那个钱干什么？

　 　在这里，我借鉴了一个软件作者的防破解经验：发行1.0版时2.0版已经写的差不多的。发行1.0版时要把1.0版的防破解或者注册算法写的简单些等着 别人去破解。一但出现1.0的破解，等待几周，这几周的时间足以使网上1.0的破解版遍天下。然后，分析破解过程更改2.0版算法（层层加密，复杂再复 杂），虽无法根除破解但可以浪费破解者的时间和耐力！一般情况下，在网上一搜你的软件已经有破解版了（1.0的）新的破解者很少会再去破解，何况2.0版 本更复杂些。我的一个软件用了此法，推出一月后被破解组织破解，公开破解过程及注册算法，并做成破解教程。其实破解从某种意义上说是帮我宣传了软件。我在 一个月后推出早已经写好的新版本，还注册成了“特别版”以迷惑想要破解版的人。使用上述方法后至少在我更新了几次软件后的今天仍没出现破解。但在网上搜破 解版、特别版、注册版到处都是，可没一个是真的。其实一些破解高手只是想试探自己的能力，破解一个软件后，一般会把目标定在下一个软件上。不过如果你的软 件成为人手必备的工具，此法怕是不灵了。

　　另外，从技术上讲也有一些防破解的方法。假设你的注册部分有300行，你可以分成30个 inline函数调用（一定要inline），func1(),func2()... func30(). 将他们随意放到程序的各个部分，一定不能放在一起。不要用Memcpy等常用系统调用拷贝注册码，尽可能自己写,像Memcpy很好写，性能差点无所谓。 经过编译后inline函数展开，注册部分和其他代码混在一起，他要写出注册机就很困难，因为要向在几十万甚至上百万汇编代码里找出有用的注册部分那简直 就像是在大海里捞针。另外注册码也不要放在一起，假设你的注册码是12位，千万不要用一个12位的数组放注册码，你可以在程序的不同位置定义12个全局字 符变量，每个放一位，这样注册码在内存就不连续了。最好再加密处理一下（简单的字符异或就可以），验证时再解密。只要破解者找不到你验证结束的地方，暴力 和Loader破解也没有可能。很重要的一点是不要用连续内存保存验证用到的变量，尽量将用到的验证临时变量分散定义在程序的不同处，再在验证中，不断转 移一些值到其他变量中，对付暴力和Loader会比较有效。没有必要用复杂的加密算法，更容易成为追踪的目标。只要你将注册部分隐藏的足够好，也没有漏 洞，你花1天写的加密算法，破解者可能会花100－1000倍的时间破解。大部分人都会放弃。你将注册做在一起，就像将你的财宝放在现代保险箱里，虽然非 常坚固难以解密，对于开锁高手两分钟就打开了。对于一些比较专业的破解者采用上面的方法也是很有效的但是，还是要避免一些低级失误例如：不要在内存中直接 出现注册码和明显的注册码比较部分不要给用户太多的有关注册验证的信息，也不要接收到注册码后立刻就进行比较。在软件的不同功能处实现验证时的好处还有就 是不会立刻执行到验证代码注册码，可以分多次验证，也可以分成几部分验证，还可以分成几层验证验证时，可以尽量多执行一些无用的操作，加上一些象递归之类 难于调试追踪的代码，但在其中要穿插实现软件功能的代码，否则人家直接就跳了过去。反正就是越不引人注意越好，亦即越乱越好。

　　其实要想彻底防止破解也是不现实的，除了研究一下破解方法，在发布前加壳外，并采用以上所说的方法外，不断升级程序也是比较好的方法。

　　总之，推广软件对于搞惯了技术的软件作者来说一开始会走一些弯路，但只要不断学习成功者的经验，不断吸取自己失败的教训，你也会成功的。最后，祝大家个个都成为共享高手。