31. 08.
在程序中使用shockwaveflash调用flash.
shockwaveflash.movie:=str;//STR是flash的路径。
该怎么加密呢？
路径加密不知道，把FLASH文件进行加密，你可以用你的播放器来播放加过密的FLASH文件
我的意思是播放完然后加密文件
shockwaveflash.movie:=str；
str:=一个方法(str);
方法以找到，一会会写出来给大家看。
31. 08.
完全模拟Google网页地图，附带全部源码，我封装成了一个控件，需要SynaSock和GraphicEx.v9.9支持，这俩个在网上都可以下载。其中用SynaSock来下载地图，用GraphicEx来显示图片，附件中有示例和组件源码。
看看
瞧瞧
研究一下
及解决方法
对地图类应用表示关注
好像很复杂啊
强大，顶
很复杂吗？
支持一下
支持。
支持
看看，支持下
要有vb.net的就好了..
支持ＬＺ
不错不错，下来看看
最近在用Delphi + MS MapPoint Web Service
LOOK
弱弱问下，我打开程序怎么没地图
不错。
厉害
楼主辛苦，支持下
不错
不错！
支持楼主！
支持
还不错!!!!!!!!!!!
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
支持楼主！
好
有源码？
8错
顶呀顶呀
支持楼主！
厉害
进来学习，楼主强！
顶，学习
sp一个
有空试试。
支持一个
不顶不行的.
楼主,下不下来啊,发送到amumu@126.com行不?谢谢!
图象是在google上下的吧～？～？～不然哪来的源啊
必须支持。看看学习下。
中国地图上最上面那个红点就是我的家。。。。想家了。。。。
好东西啊，只是没有控件源码
楼主你好。目前我们在开发一个飞机动态的监控系统，如上图。
基础地图部分已基本上完成，目前出现的问题是：
1.当地图上有大量的飞机时（超过100架），且居中在某一区域(如：中国)，再拖动地图，效率非常慢。
注：地图是控件，飞机也是用控件模拟的。
2.我们这上面也有个经纬度的显示问题，就是鼠标在地图控件上移动时，显示不同的经纬度。
鼠标移动时效率还可以，就是在拖动地图时感觉效率明显下降了。
请问楼主有什么好的建议么？？
谢谢
不错
不错，看看先
瞅瞅
顶一下再说了~~~~~~
该回复于2008-08-07 15:52:54被版主删除
我看了一下,确实非常之酷
跟楼主一样的酷,这样的好贴一定要加油顶了,哈哈!!!!!!!!!
强的呵呵
呵呵
纯看看，不会delphi
呵呵，不错，谢谢楼主分享
不错
支持一下~~
不错……….
地图是从Google的地图服务器上下载
控件源码都有的，在附件中，大家可以下载，随意使用，如果不能下载，请给我发邮件，至于SynaSock和GraphicEx大家可以到www.2ccc.com下载。
不错
NB
支持下，特别是0分下载
很好，谢谢
学习学习。。楼主太强悍了
学习一下
支持楼主！
支持 支持
顶 好东西 哈
赞一个
delphi的！
楼主真牛人
支持delphi，有源码更好
支持楼主！
好东西，支持
谢谢分享
好东西
支持楼主，希望csdn多几个楼主这样的好人，那就OK了
看了一下，相当棒！遗憾的是不懂Delphi。非常好，支持！
强啊
好东西，支持
真牛!
找不到SynaSock这个控件呀， 楼主能提供一下吗？
fen
好东西
支持
有没有源码啊，学习一下。
呵呵，看看啊
支持一下
高手呀．．这么厉害呀 nike
支持一下
支持一下
谢谢楼主,学习…
支持 虽然不懂
好人那!!学习
下载看看。:)
我顶啊楼主
真是很好很强大!
很好很强大
厉害
真不错.谢了.
咦，我下载后为何显示不了地图呢？还需要先安装控件吗？
马克
马克
顶一下
支持支持
支持 支持
顶
jf
LZ厉害
看了一下，的确很不错。支持
SynaSock 这个东西在哪儿下啊，怎么找不到啊！
支持
不错，支持
是在TurboPower中的Async Professional这个组件
搂住辛苦，呗儿一个^_^
LZ很强大。
楼主，能不能把SynaSock和GraphicEx.v9.9这2个控件发给我？谢谢。邮箱：wxh@djy.gov.cn
很好，很强大，先顶起来，再研究学习！
牛人很多
mark
高级。
发现楼主一个汉语的语法错误~~
“俩”后面不能加“个”
＝＝＝＋＋＋＋＋＋＋
不错，很强大！
支持一下，谢谢你得分享
看不懂啊
厉害
分享得好,支持一个.
牛啊,支持一下.
下了，支持一下，地图是不是要需要下载啊？
很好，怎么没有GraphicEx.dcu呢 ？？
强。。
牛,真牛…
恩 有点意思~ 支持了
强啊
不错.正在学习中.
强大，这样的帖子一定要顶起来
good!
支持
支持一下
老 湖 机 上★分★器 安 全 隐 蔽 性 高 ★★★.本 公 司 是 厂 家 直 销 以 质 量. 信 益 为 中 心Q★★★ Q: 835961677 手机:15060055295
看看，似乎有些酷。
支持一下
支持一下
强！支持楼主！！！
今天试着上传到CSDN，结果老是出现未知错误，请需要VCL的发邮件到这个邮箱：fansheng_hx@163.com。
好久没上，一上来就有好东西，支持~！感谢搂主
vb 垃圾
不错
好东西呀
牛人！
看看先。对这个已经研究了，就是没有进展。呵呵
很厉害哟。
楼主厉害啊
有没有C#语言版本的啊？
楼主，牛人呀。支持。
仰视
顶一下！！！怀念Delphi
mark
看看
可惜不懂delphi
好，一定要看看
…强
下来 学习学习
我发现 您下载的是
http://servicetile.mapabc.com/googlechina/maptile?v=cn1&hl=zh-CN&x=0&y=0&zoom=17&s=Galile
这张图片我能够看到 也能下载成功。
但是下载下一张图片 就会失败了
http://servicetile.mapabc.com/googlechina/maptile?v=cn1&hl=zh-CN&x=0&y=0&zoom=17&s=Galile
比如把x y 换成别的数据， 所以您的软件 也只能看到一张图片。 请问该如何下载所有图片呢？ 所有的缩放？
顶！
太强了！
179楼，程序里面有一个获取下载URL的算法，你看一，可以下载所有缩放地图的。
sUrl := Format(CMapURL, [Ax, Ay, 17-AZoom]); //Google中0表示放大到最大，而这里0表示最小
CMAPURL：CMapURL = 'http://servicetile.mapabc.com/googlechina/maptile?v=cn1&hl=zh-CN&x=%d&y=%d&zoom=%d&s=Galile';
楼主加油
不过怎么没有google本身的块?
不错，值得研究一下
研究一下
lz
http://servicetile.mapabc.com/googlechina/maptile?v=cn1&hl=zh-CN&x=661&y=166&zoom=1&s=Galile
http://servicetile.mapabc.com/googlechina/maptile?v=cn1&hl=zh-CN&x=0&y=1&zoom=0&s=Galile
我随意变换 x y zoom 的值 0-17 之间
会得到失败。 我检查了 ditu.google.cn 的做法， 它有cookie, 我加了它的cookie 也被告知 是spy software 过来的。
被阻止了。
… sorry.
我又拿ditu 的x,y 做了测试。
是可以拿到地图的
但是 比如
zoom = 17
x= 0
y= 0 是有图片的
而zoo = 1
x= 0
y = 0 就没有
它们的座标 计算 和x y 的相对应关系 能做一下说明吗？
比如 zoom = 5 ,x 最大 多少 y 最大多少？
谢谢！
Google交通地图是每放大一级：一张图变为四张图的，下面的URL都可以看见地图
http://servicetile.mapabc.com/googlechina/maptile?v=cn1&hl=zh-CN&x=0&y=0&zoom=17&s=Galile
放大一级：
http://servicetile.mapabc.com/googlechina/maptile?v=cn1&hl=zh-CN&x=0&y=0&zoom=16&s=Galile
http://servicetile.mapabc.com/googlechina/maptile?v=cn1&hl=zh-CN&x=0&y=1&zoom=16&s=Galile
http://servicetile.mapabc.com/googlechina/maptile?v=cn1&hl=zh-CN&x=1&y=0&zoom=16&s=Galile
http://servicetile.mapabc.com/googlechina/maptile?v=cn1&hl=zh-CN&x=1&y=1&zoom=16&s=Galile
好像很难。。
必须支持。看看学习下。
强就一个字
大家都支持了，那我也支持一下。
不错
研究一下
!
支持！！！！！！！
LOOK
ku a
看看
支持
这个东西太强大了
好东东要顶
向楼主学习啊
很好很强大
好东东
强烈支持.
学习下！
搂主好人啊！
学习一下！
很好 ，很强大
很好 ，很强大
我看看代码先，该赞的一定赞。
不错啊
非常好，其实很多网络地图都是楼主类似原理，客户端实现可能会相对容易，难的是服务器端，强劲的高并发服务器复杂！
严重支持！
顶
好,看看,不错,值得学忌
不能下载附近，麻烦发我一个 fausten@126.com
谢谢
好,看看,不错,值得学
顶啊！强！！！！！
挺好
搂主的附件我下在不下来啊，能不能帮我发到邮箱：zhqcsailor@sohu.com,非常感谢！
好像很复杂啊
不错,很好,很强大!
牛
好像不能下载啊
学习了
好厉害啊 啊啊 啊啊啊啊
顶，学习~
学习一下！是用的GOogleAPI吗
不错,很好,很强大!
顶住,收藏先.
来凑个热闹
顶
顶
顶起，机柜学习了。
静态图片吗
强人~~~~~~~！！！！
弓虽，看看效果怎么样
楼主，我的是代理服务器，怎么一直Loading……
组件中有代理的设置，只是我这个DEMO没有给出设置代理的选项。
支持一下
31. 08.
while true do
begin
len:= recv(FSocket, buf, sizeof(buf), 0); //接收数据
if len <1 then break;
SetString(str,buf,len);
end;
用winsock读取网页的源代码，上面这么写只能接收到header的数据，请问返回的content要如何接收，谢谢。
function StartNet(var sock: integer): Boolean;
var
wsadata: Twsadata;
Fsocket,err: integer;
SockAddrIn: TSockAddrIn;
begin
WSAStartup($0101,wsadata);
Fsocket := socket(PF_INET, SOCK_STREAM, IPPROTO_IP);
if FSocket = invalid_socket then
begin
Result := False;
Exit;
end;
SockAddrIn.sin_addr.s_addr := HostNameToIP('www.kaixin001.com');
SockAddrIn.sin_family := PF_INET;
SockAddrIn.sin_port := htons(80);
err := connect(FSocket, SockAddrIn, SizeOf(SockAddrIn));
if err = 0 then
begin
sock := FSocket;
Result := True;
end
else
Result := False;
end;
procedure StopNet(Fsocket: integer);
begin
closesocket(Fsocket);
WSACleanup;
end;
function SendData(FSocket: integer;SendStr: string): integer;
var
err: integer;
begin
err := send(FSocket,pchar(sendstr)^, length(sendstr), 0);
Result := err;
end;
function HostNameToIP(S: string): DWord;
var
Host: pHostent;
Address: DWord;
begin
Address := inet_addr(PChar(S));
if (Address = INADDR_NONE) then begin
Host := GetHostByName(Pchar(S));
if Host = nil then begin
HostNameToIP := INADDR_NONE;
exit;
end
else begin
hostNametoip := longint(pointer(Host^.h_addr_list^)^);
exit;
end;
end
else begin
Address := inet_addr(PChar(S));
HostNameToIP := Address;
exit;
end;
end;
procedure TForm1.FlatButton2Click(Sender: TObject);
var
re,Fsocket,Checkit,snum,enum: integer;
Login,Login1,User,Pass,str,data: string;
BufRecv: array[0..1023]of char;
begin
Login:= 'GET /app/app.php HTTP/1.1'+#13#10;
Login:= Login+'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/msword, application/vnd.ms-excel, */*'+#13#10;
Login:= Login+'Referer: http://www.kaixin001.com/home/'+#13#10;
Login:= Login+'Accept-Language: zh-cn'+#13#10;
Login:= Login+'Content-Type: application/x-www-form-urlencoded'#13#10;
Login:= Login+'Accept-Encoding: gzip, deflate'+#13#10;
Login:= Login+'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; GTJA-E.T.(QinDaHai); .NET CLR 2.0.50727)'+#13#10;
Login:= Login+'Host: www.1111.com'+#13#10;
Login:= Login+'Content-Length: '+inttostr(length(Login1))+#13#10;
Login:= Login+'Connection: Keep-Alive'+#13#10;
Login:= Login+'Cookie: _user='+Cuser+';_email='+Cemail+'; _invisible=0; SERVERID=_srv73_'#13#10#13#10;
StartNet(Fsocket);
Senddata(Fsocket,Login);
while true do
begin
re:= recv(Fsocket,bufrecv,sizeof(bufrecv),0);
if re <1 then break;
SetString(str,bufrecv,re);
data:= data + str;
end;
//if length(data)>100 then FlatEdit1.Text:= data;
FlatMemo1.Text:= data;
StopNet(Fsocket);
不好意思，还有要是data的数据是utf8怎样转换，
GetMem(BufRecv, 1024);
while true do
begin
ZeroMemory(bufRecv, 1024);
re := recv(FSocket, BufRecv^, 1024, 0);
str := StrPas(bufRecv);
data:= data+str;
if re <> 1024 then break;
end;
FreeMem(BufRecv);
已解决，
31. 08.
如题
pixel 是 96 dpi, GetDeviceCap 可以得到, 但所有的分辩率都得到这个值, 所以 screen 绝对不是所见即所得的为了得到 pixel to cm 引入个新的单位(比较小) twip(印刷业单位)
1440twip = inch
567twip = 1cm
也就是说 15twip = 1pixel
1cm = 567/15 pixel
1 cm = 37.8 = 38pixels
31. 08.
2008年 9月，IBM Rational 软件开发高峰论坛（IBM Rational Software Development Conference China 2008，简称 RSDC ）即将在上海以及深圳拉开帷幕。届时，来自 IBM 的业界领军人物、首席科学家、华人技术精英和 IBM 国内外实验室的技术专家将为您奉献两站多达 80场的精彩技术讲座。会上更将揭密基于 Jazz 平台的新产品，与来自全国各地不同行业的 IT 开发人员、IT 咨询人员、程序设计人员等一同分享最前沿的技术趋势。敬请关注 Jazz，关注 IBM Rational 软件开发高峰论坛，分享开发的智慧，协作的力量！
深圳站
时间：2008年 9月 2日
地点：深圳威尼斯皇冠假日酒店
地址：深圳市华侨城深南大道 9026号
上海站
时间：2008年 9月 4日
地点：上海国际会议中心
地址：上海市浦东滨江大道 2727号
参会人员均可获得《程序员》杂志及IBM提供的超值大礼包一份！快来报名吧！
太远了~
哦
星期4….请不到假啊
MARK
提供食宿不？？
星期4 - -U
なに？
报名了。
我报死他
天啊
想去，可在上课，唉，大好的时机又要错过了
网上直播吗？或者录象也行啊
小看广州？
广州没有？？
周末就好了啊！！
JF
80场？ 一天？ 太夸张了吧
支持！
又错过咯
如果是星期六或者是星期天我就去了，可惜是星期四
嗯呀
OO
有时间真想去听一下，不想错过。
消息可靠吗?
不要传假消息啊!
好
HOHO，很好
太远了。
嘿嘿 深圳会场离我很近
到时去看看学习学习
帮楼主顶一下! 顺便也接点分
可惜离我太远了！！！
31. 08.
有十个Edit控件对应着十个Label控件，在edit1控件输入一个字符位的内容，这时输入的内容传给对应的label1控件，edit1控件隐藏，然后label1和edit2控件显示（在程序打开时，默认除了Edit1显示外，其它全部隐藏，），并把光标自动跳转至edit2。以此类推。
以上说的功能我都实现了，现在我想实现一个插入功能，就是在已有内容的格子前面输入一个新的内容。不是新创建一个Edit控件或Label控件，而是将内容移至下一个Edit控件中或label控件中，如果大侠们明白我的意思，就请指点一下吧，谢谢。（请给我具体的代码范例。）
Edit2.Text:=Edit1.Text;
Edit1.Visible:=False;
不明白什么意思
这是我写的edit1控件代码，其它与此类似。
procedure TForm1.Edit1Change(Sender: TObject);
begin
if length((sender as TEdit).Text) = 1 then //如果Edit控件写入内容，那么就跳转到下一个Edit控件里。
begin
edit2.Visible := true; //显示Edit2
(sender as Tedit).Visible := false; //隐藏Edit1
label1.Visible := true; //显示label1
label1.Caption := (sender as tedit).Text; //将edit1的内容给label1
form1.FocusControl(edit2); //将光标自动移动到edit2
end
else if trim((sender as tedit).Text) = '' then //当edit1没有内容时
begin
label1.Caption := ''; //当输入框的内容删除后，显示框的内容也要删除
if not(label2.Caption = '') then //如果edit2“有”内容的话，就：
begin
(sender as tedit).Text := label2.Caption; //将label2的内容传给Edit1
label2.Visible := false; //隐藏label2
label2.Caption := ''; //清空label2的内容
edit2.Text := '';
edit2.Visible := false; //隐藏edit2
(sender as TEdit).Visible := true; //显示edit1
(sender as TEdit).SetFocus; //将光标自动移动到edit1
end
end;
end;
我想实现一个插入功能，就像Excel中插入“单元格”功能
31. 08.
有两个Edit控件（edit1、edit2），现在我编好了Edit1的OnKeyPress事件过程。Edit2如何调用Edit1的事件过程，以减小代码的重复输入。
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); //这是Edit1的事件过程的代码。
begin
if key = #13 then
begin
showmessage('调用过程成功');
end;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); //edit2如何调用“edit1”的事件过程呢？？？
begin
？？？？？？？？？？？？？？？？？ //我需要实际代码，谢谢。
end;
设计的时候，选择Edit2，在Object Inspector的Events页的OnKeyPress事件栏的下拉框中选择Edit1KeyPress即可。
同意。
非要调用的话
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); //edit2如何调用“edit1”的事件过程呢？？？
begin
Edit1KeyPress(Sender,Key);
end;
可以选择Edit2KeyPress 为Edit1KeyPress
非要调用的话
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); //edit2如何调用“edit1”的事件过程呢？？？
begin
Edit1KeyPress(Sender,Key);
end;
多谢各位大侠！！！！
用这个最好，不要再写无谓的代码
31. 08.
在delphi2007中无论是在对象属性面板，还是在用代码，都无法改变Label控件的背景颜色？？？
可以改变的。在D7中TLabel.Transparent缺省为False，而D2007缺省却为真，所以无论你设置什么颜色，总是透明显示，将Transparent设置为False就可以了。
OK了，不过每次创建一个Label控件难道都要改，太麻烦了吧，有没有一劳永逸的办法。
那就继承它,重写一个组件
就我目前的水平，maozefa说的我还做不到，感谢maozefa
还没用2007，先学习了。
31. 08.
BorderOuter是Rzpanel1的一个属性，在设计里有fsflat、fsnone等属性，现在在程序里
RzPanel1.BorderOuter:=fsflat;赋值错误，请怎样处理，谢谢
下次看到有Undeclared identifier…的先看看拼写有没有错,再看看有没有引用对应的单元。
并且是属于正确的作用范围的。
31. 08.
2008年 9月，IBM Rational 软件开发高峰论坛（IBM Rational Software Development Conference China 2008，简称 RSDC ）即将在上海以及深圳拉开帷幕。届时，来自 IBM 的业界领军人物、首席科学家、华人技术精英和 IBM 国内外实验室的技术专家将为您奉献两站多达 80场的精彩技术讲座。会上更将揭密基于 Jazz 平台的新产品，与来自全国各地不同行业的 IT 开发人员、IT 咨询人员、程序设计人员等一同分享最前沿的技术趋势。敬请关注 Jazz，关注 IBM Rational 软件开发高峰论坛，分享开发的智慧，协作的力量！
深圳站
时间：2008年 9月 2日
地点：深圳威尼斯皇冠假日酒店
地址：深圳市华侨城深南大道 9026号
上海站
时间：2008年 9月 4日
地点：上海国际会议中心
地址：上海市浦东滨江大道 2727号
参会人员均可获得《程序员》杂志及IBM提供的超值大礼包一份！快来报名吧！
太远了~
哦
星期4….请不到假啊
MARK
提供食宿不？？
星期4 - -U
なに？
报名了。
我报死他
天啊
想去，可在上课，唉，大好的时机又要错过了
网上直播吗？或者录象也行啊
小看广州？
广州没有？？
周末就好了啊！！
JF
80场？ 一天？ 太夸张了吧
支持！
又错过咯
如果是星期六或者是星期天我就去了，可惜是星期四
嗯呀
OO
有时间真想去听一下，不想错过。
消息可靠吗?
不要传假消息啊!
好
HOHO，很好
太远了。
嘿嘿 深圳会场离我很近
到时去看看学习学习
帮楼主顶一下! 顺便也接点分
可惜离我太远了！！！