一个觉得很难的问题：如何做一个手电筒的灯光效果出来。500分 ( 积分: 200 )

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-06

• #21

自已编的话，达不到老外的速度。

 

M

maozhuxi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-06

• #22

你说对了，就是要光晕效果哈
你说的哪个控件叫什么名字？

 

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-06

• #23

具体是什么名字想不起了，是不是上面有人说的fastdib
我都想找，效果很多。

 

M

maozhuxi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-06

• #24

找了半天也没找到你说的例子，有没有有效的例子的连接？

 

B

billwillman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-08

• #25

暗黑那种效果,其实他是有个光照图片的,进行Blend处理贴图上去的,其实做并不难,用DIRECTX很容易就能实现

 

B

billwillman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-08

• #26

另贴张效果图片
http://www.afterwarp.net/forum/attachment.php?attachmentid=801&d=1163573029
你可以去看下

 

B

billwillman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-09

• #27

不知道是不是你要的效果

 

D

dcs_dcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-09

• #28

你们的问题好难啊，看来我是跟不上时代了

 

M

maozhuxi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-09

• #29

to billwillman
这样的效果也可以，能具体一点吗？找了好多资料
现在还没头绪

 

R

ruffian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-13

• #30

试试DELPHI X 问题因该容易解决

 

M

maozhuxi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-13

• #31

DELPHI X是什么？

 

B

billwillman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-13

• #32

使用多重纹理（DirectX的概念）可以实现效果，我使用的是ASPHYRE（一个DIRECTX控件）做的效果

 

B

billwillman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-13

• #33

由弱到强，设置ALPHA值就可以了，
如还有问题，QQ联系，我的QQ：370620516

 

M

maozhuxi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-14

• #34

http://shhttp.codesky.net/2006/20061113971137.rar
我从上面的网地下载了asp...控件
运行它的demo
每个demo都报错误
[Fatal Error] MainFm.pas(22):
Undeclared identifier: 'IDirectInput8'
是怎么回事？

 

B

billwillman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-16

• #35

没有加入相应的单元，你加入DXINPUT单元试试

 

Z

zhanglottery

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-02

• #36

如果会flash的话，用delphi操控flash很方便的。
我以前实现过delphi读写flash的变量，delphi调用flash的函数，flash给delphi发消息（相当于flash可以调用delphi的函数了）
其实就是从以前的delphibbs离线版本查出来的，当时可能还有到网络上搜索。
现在手头没有源码，从离线版本搜出
ShockwaveFlash1.SetVariable(ShockwaveFlash1.scale,widestring('2'));
Caption:=ShockwaveFlash1.GetVariable(ShockwaveFlash1.scale);
应该可以读写flash变量。
调用flash的函数印象中是从网页中javascript调用flash的方法借鉴过来的，二者一样。你可以到网络收一下。

 

Z

zhanglottery

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-02

• #37

想到一个替代方案:
flash中用xmlsocket很方便的,缺点是必须采用1024以上的高端端口
不过如果用flash跟delphi程序socket连接的话,在一个程序内部,就没有端口屏蔽的问题了
用xmlsocket跟delphi程序连，假定：
如果delphi程序收到'call|delphifunc1|param1|param2'的话，就调用
if s='delphifunc1' then
delphifunc1(spara1,spara2)
else if s= .....
flash要求同步调用的话还可以send一个字符串回去，表示调用的结果值。

同理，flash收到'call|flashfunc1|paravalue1'之类的字符串，就解析调用相应的函数
flash as的语法类似javascript，很好玩的

这样就实现了delphi和flash互相调用函数，虽然有点土。

 

M

Miros

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-12

• #38

楼主要的是否是这效果？
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
Button1.Enabled := False;
Canvas.Brush.Color := clBlack;
Canvas.FillRect(ClientRect);
for I := 0 to 255 do
begin
Canvas.Brush.Color := RGB(I, I, I);
Canvas.Ellipse(100, 100, 300, 300);
Application.ProcessMessages;
Sleep(1);
end;
for I := 255 downto 0 do
begin
Canvas.Brush.Color := RGB(I, I, I);
Canvas.Ellipse(100, 100, 300, 300);
Application.ProcessMessages;
Sleep(1);
end;
Button1.Enabled := true;
end;

 

M

maozhuxi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-08

• #39

我再研究下，谁有兴趣给我发短信或打电话：13560005809
广州的号码。

 

B

billwillman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-18

• #40

还要别人给你打电话..
晕