求一段delphi7.0视频教程修改DLL的代码

来源：蜘蛛抓取(WebSpider) 时间：2012-03-11 12:34 标签： delphi7.0视频教程
网页制作高手请进，求一段文字特效代码。_百度知道
网页制作高手请进，求一段文字特效代码。
是许多网站都有的一种文字特效？ （如果没有带链接的！分不多。文字带链接，但若能用我再另加？我想在新浪博客里面能加的，隔一段时间就会向上滚动一次，换一个内容，不知有没有，那么普通的这种形式的也凑合）谢谢各位了。请问这个效果是用什么样的代码实现的呢
提问者采纳
--把以下代码复制到一个文本文档里;br&#47:12
满载一船星辉，保存后，撑支长篙; /实际行数
var iScrollAmount = 1;&gt，修改其后缀名为;
波光里的艳影;
揉碎在浮藻间;
我挥一挥衣袖;
onmouseout=&quot。&iScrollAmount=1&
&lt，悄悄是别离的笙箫.html 双击打开就能看到效果了;&#47，油油的在水底招摇; &#47，具体的滚动高度等下面有注释--& &lt.innerHTML, 5000 )，正如我轻轻的来:hidden&quot，是夕阳中的新娘; &lt；&
那榆荫下的一潭；&lt，正如我悄悄的来;
&lt, 2000 )，像素
var iLineCount = 7;&
&body&&gt，在星辉斑烂里放歌; /
&lt，沉淀彩虹似的梦;
我轻轻的招手;&br/br/style&/br/.scrollTop += iScrollA/单行高度;&&
div { font-size, 50 );script&&
var oMarquee = }
& /run()&/style&gt。&
软泥上的青荇.scrollTop == iLineCount * iLineHeight )
在康河的柔波里;div&&
那河畔的金柳&lt:70&gt.scrollTop % iLineHeight == 0 ) {&gt.getElementById(& onmouseover=&quot。&br/br/
} else {br&#47，在我心头荡漾;iScrollAmount=0&
轻轻的我走了.innerHTML += oMbr/
但我不能放歌.setTimeout( &br/run()&quot，作别西天的云彩;
&lt；&滚动对象
var iLineHeight = 42;&
&div id=&&body&/&br/
&br/；&lt，像素
function run() {
oMarquee；&lt。&lt。&&gt.setTimeout( &mq&quot，我甘心作一条水草; style=&br/script&gt，向青草更青处漫溯;&&br&#47。&
if ( oMarquee:100%;&#47，不是清泉是天上的虹。&br//br&#47.scrollTop = 0;每次滚动高度;&&
寻梦;br/br/br/
夏虫也为我沉默;
oM)，沉默是今晚的康桥;
悄悄的我走了;
&&mq&/&gt.setTimeout( &run()&;br/;& &lt；&&gt，不带走一片云彩;
if ( oMarquee
其他类似问题
文字特效的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁帮忙看看一段delphi 7的代码_百度知道
帮忙看看一段delphi 7的代码
string: array [1.res}function GB2UniCode(GB;&; exports GB2UniCodelibrary Project1:=Integer(a[i]);i;R&gt:=s;beginend:string):=s+Copy(Format(', j，如你所见 是一段dll的代码但是这个编译成功;while ((a[i]&{$R *, Cstdcall:=Integer(a[i+1]), 500).,4);'i: string:=i+2，调用不成功;vars,2;StringToWideChar(GB, @(a[1]), k:begins;k,[j*$100+k+$10000]) :='%X 'a;end.160]#0)) do beginj;#0) or (a[i+1]&lt:=1;i，帮忙看看那里有问题;s.代码如上;uses SysUtils
提问者采纳
4))).: array[1;&gt, 0)。string是Delphi专用;
end, SizeOf(a));var #0) or (a[i + 1] &lt: DWORD):= Integer(a[i + 1]): PChar，操作系统认识你Delphi老大贵姓。library Project1Dll中不能导出以string为返回值的函数, PChar(Copy(Format(': I
StringToWideChar(GB, B
k ，才能传入GB2UniCode函数:= Integer(a[i]);uses
Windows；函数返回值是转换完字符串的长度;beginend？帮你改了一下。能够保证调用成功，必须要用GetMem开辟内存后；BufferSize是开辟缓冲区的大小: Lend, @a[1], 0);
StrCat(Buffer, 2,function GB2UniCode(GB;&
Result ，但转换是否成功就是你自己代码的问题了:= 1, [j*$100 + k + $10000]);
Inc(i, SysU BufferS
FillChar(a：GB是待转换字符串:= StrLen(Buffer);exports GB2UniCode, #0)) do
i , SizeOf(a);%X '
while ((a[i] &lt.160] of Char，用于接收转换后的字符串, BufferSize, 2)；Buffer是一个缓冲区;begin
FillChar(Buffer
提问者评价
嗯 我刚才也发现是string就不行 看了看string真是抓鸡 现在我用pchar代替就行了
其他类似问题
delphi的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁急求一个网页特效代码（求一段网页图片特效代码任意修改网页的源代码）高分！！！_百度知道
急求一个网页特效代码（求一段网页图片特效代码任意修改网页的源代码）高分！！！
才发现股曲网信息页使用了个不错的特技，框架内信息的指定位置，）有没人能做的更精美一些，看起来不错，可以指定位置显示，（只是代码有点罗索？求具体代码！！。实现了定点显示。更精致一些。还有那个特技如何实现的
提问者采纳
你找到这一部分的代码，慢慢找你自己查看源代码，然后自己分离出来。多半是用的javascript
其他类似问题
网页特效的相关知识
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁您现在正在浏览：
& 最近更新

我要回帖

更多关于 delphi7.0视频教程 的文章

 

随机推荐