delphi日志

31. 12.

首次以这个帐号在CSDN发招聘贴。以前公司业绩不好，也不好意思请大家过去。现在公司业绩好转，并将有大的发展，所以来这里寻找志同道合的合作伙伴，一起来将这个事业做大！

公司概况：
我们公司致力于CRM行业已有8年之久。今年我们获得了一个良好的发展机会，将会有大的发展。

今年，2008，我们有一个宏伟的目标。为了达成这个目标，我们需要您的加入！具体公司的发展规划，如果您对我们公司有兴趣，可以进一步交流。

本次我们只增加2－4人，一段时间后会进一步增加其他员工。

我们的招聘要求：
性别不限，学历不限，大专，中专都可以！
需要有2年以上工作经验，但如果能力强的话也不限！
要求开发速度快，学习能力强，有敬业精神。

A) DELPHI程序员 1-2人
  要求熟悉SQL SERVER。最好能熟悉网络编程。
  有 IM / CRM 开发经验者最佳。

B) ASP/.NET程序员 1-2人
  要求熟悉HTML，SQL SERVER，CSS。最好能熟悉简单的图像处理。
  有大型网站开发经验者最佳。

薪资：
  4000+，5年以上经验的6k+，能力强可以面议！
 
我们是想长期发展的公司，希望你能够长期伴随公司成长。希望您不要把这当成一份工作，而是我们共同的事业！

希望大家认真考虑后与我们联系，也非常希望以前离开的各位兄弟们再次加入！

公司网址：www.onlycrm.com
邮箱:dev#anltech.com
ｑｑ:８１９２４３２０

兼职可以吗？公司在哪里？

公司在上海。
暂时不考虑兼职，不过可以保持联系.

大风的贴，顶一下！

客户管理系统?原来做过一些,呵呵,不过还不想到外地去.

….. 刚跳来上海英孚思为了  不巧 

远程协作吧

QQ:7447417
远程协作吧,我有时间

up

接分

顶，接分

帮顶，接分

帮顶，接分

up

顶  顶
up up

这个贴要顶!

顶顶 ，看来往后的日子会很好过了

顶大风

不过，上海，4k+是不是少了点

对于一般2年经验的，4k＋不算多，但也不算少了

对于更多年经验的，能力更强的，这里没有办法给出薪水，只能面议了。

专业路过 友情接分

我比较闲的啊，在上海，兼职可以保证时间。

友情顶下！

顶一个

好久不见风老大,这年头市场的确难开拓,祝愿你们越走越好,另外甚么时候有空再出来腐败一顿.

腐败？好啊，谁组织下

稍微等等我,我这两个月休息都要忙家里的事情,到六七月份吧,组织很容易,发个置顶的帖子就可以了

刚刚看了看贵公司的网站，还不错哦。 呵呵
我只有相当与1年左右的经验呢，用delphi编过文件恢复程序，懂一点简单的sql。

友情的顶一下这贴。

不是招聘，而是寻找合作伙伴

那你就要谈谈怎么分股份，不然就是“招聘”，不是“合作伙伴”

专业路过 友情接分

路过，不在上海

呵呵~~
路过顶贴~~

瞧瞧!!

来顶一贴，过段时间有需要时容易找，嘿嘿…..

路过，顶顶

合作的话是需要有money的不用为了生计担忧的，否则4k在上海没法活

顶顶upup

等有钱了再去，4k在上海活不了的

顶顶，接分。呵呵

接分

不錯，起碼比現在的工資要高!
不知道上海那邊的消費具體怎麼樣？

我是大专的学习软件工程专业，会.Net开发网站不知道可以吗？

接分，我也想去啊，一年多的经验，只不过我主要是MIS方面的D+SQL2000 也做过简单的控件。

我是楼上的，我ｑｑ：４０１５８７８３７　

上海的話,工資太低了,看來LZ是找不到"合作夥伴"的了

ss

支持

貌似这个时候我也能参加：）

帮顶

拼了老命接分

拼了老命接分

拼了老命接分

帮顶

拼了老命接分

拼了老命接分

顶下

工资不低啊~可惜还是新手~

顶老风

UP

接分

顶老风,可以远程协作

JF

jf

工资好象是低了点

1.您是一位高手…
2.您挑的"合作伙伴"一定也是一位高手…
3.4000块请高手…

顶~~~

不想参与…

up

顶一下楼主结贴

接分

顶一个，接点分

接分

合作，合作，合作，合作，合作，合作
等公司大了，人家的嘴巴闭合了，钱包也合上了，你就被做了。

如果真的要合作，那么进入公司，三个月之内，就签股份合同，如果做的好，按比率给股份。
大家都问这公司敢吗？
不敢就就乖乖的招聘，该给多少给多少。
楼主，仔细想想，你公司资产上千万了，真的给10％或者5％的股份吗？

如果不敢，就别招摇撞骗。

哈哈。。。。。。

up

看来这个帖子已经招人讨厌了
LZ还不结帖~~

jf

dd

结贴吧

接分

青蛙昨天电话我要推荐一个小弟给我，我这里编制够了，让他推荐给你。

我这里还有最近1个月招聘的简历，大概50多份，如果明天的聚会你参加，我盘给你。

up

31. 12.

具体通信的时候可能服务器不知道客户端发送过来什么类型的数据,可能是字符串命令也可以能是16进制的,这个时候该如何接收?   用的TTCPSERVER，TTCPCLIENT    

有没有列子啊，另外TCPSERVER跟IDTCPSERVER有啥区别啊，我现在用前者写了个类似聊天的程序，想在接收16进制数据或一般文本后相应画图，找了些文章不过是用TIDTCPSERVER写的，   我是希望服务器收到消息后进行即时响应,主要的问题是收消息的时候是不知道对方发了什么东西过来,是字符串呢还是流数据.
Top

4   楼cjf1009（农民程序员）回复于   2005-06-28   17:10:32   得分   50这个问题可以这样解决：      
    服务器端给客户端发数据时，先发一个“命令标志”，可以是一个字符串，然后再发你要发送的数据。      
    这样客户端在接到“命令标志”后，就知道该怎么接收了。      
    比如：      
    idtcpclient.writebuffer( 'logn ',4);//两方约定这个标志4字节。。这个标志要定长，整个包结构可以变长      
    idtcpclient.writebuffer(loginrec,sizeof(loginrec));      
       
            服务器端接收：      
    var      
            command:String;      
       
    setlength(command,4);      
    idtcpserver.readbuffer(pchar(command)^,4);//先读出头标志，程序是等停在这里的      
    if       command= 'logn '       then      
    接收loginrec//每个标志对应RECORD，这时候应该是知道RECORD长度了。      
    if       command= 'send '       then      
    接收sendrec      
          这样并不影响你所谓的“服务器收到消息后进行即时响应”。      
   
有人知道怎么把他变成TCPSERVER可以用的语句吗

31. 12.

这下面是别人的程序我还是不知道怎么用到我的收发数据的程序里面，没看到procedure，他说以IOCP为例，我都没接触过，才学一个多月，望大侠指教

在VC中实现心跳的例子很多，可是在DLEPHI中一直没有相应的代码。下面我是我使用DELPHI编写的关于心跳的代码（以IOCP为例），希望对大家有帮助。  

定义心跳常量  
const
    IOC_IN                               =$80000000;
    IOC_VENDOR                       =$18000000;
    IOC_out                             =$40000000;
    SIO_KEEPALIVE_VALS       =IOC_IN   or   IOC_VENDOR   or   4;  
var  
    inKeepAlive,OutKeepAlive:TTCP_KEEPALIVE;  

实现代码是在Acceptsc:=   WSAAccept(Listensc,   nil,   nil,   nil,   0);代码的后面加入：  

          opt:=1;
            if   setsockopt(Acceptsc,SOL_SOCKET,SO_KEEPALIVE,@opt,sizeof(opt))=SOCKET_ERROR   then
            begin
                closesocket(Acceptsc);
            end;
            inKeepAlive.onoff:=1;
            //设置３秒钟时间间隔  

  inKeepAlive.keepalivetime:=3000;  

          //设置每３秒中发送１次的心跳
            inKeepAlive.keepaliveinterval:=1;
            insize:=sizeof(TTCP_KEEPALIVE);
            outsize:=sizeof(TTCP_KEEPALIVE);
            if   WSAIoctl(Accept,SIO_KEEPALIVE_VALS,@inKeepAlive,insize,@outKeepAlive,outsize,@outByte,nil,nil)=SOCKET_ERROR   then
            begin
                closesocket(Acceptsc);
            end;  
如果加入以上的代码以后，系统会每３秒中加入一次的心跳。并且如果客户端断线以后（网线断），函数GetQueuedCompletionStatus会返回FALSE。  

if   (GetQueuedCompletionStatus(CompletionPort,   BytesTransferred,DWORD(PerHandleData),   POverlapped(PerIoData),   INFINITE)   =   False)   then
                begin
                      //在这里处理客户端断线信息。  

　　　continue;
                end;  

把代碼加了就是了，TCP從協議層來保證的

//心跳结构
tcp_keepalive = record
  onoff: Integer;
  keepalivetime: Integer;
  keepaliveinterval: Integer;
end;
TTCP_KEEPALIVE = tcp_keepalive;
PTCP_KEEPALIVE = ^tcp_keepalive;

31. 12.

新年巨献！！！
万一的博客CHM版《DELPHI全掌握》制作完毕！
下载页面在
http://download.csdn.net/source/918466
界面预览在
http://blog.csdn.net/stgsd/archive/2008/12/28/3628941.aspx
欢迎大家下载指正。

好东西~

全力支持!

不错的资料。

楼主很强呀~~~~~

很好.

非常感谢楼主!

楼主与万一一样令人敬佩

lz高手啊

用不了

高银

不错不错~~

我也用不了－－“无法显示网页”

3x

支持

非常不错的资料，感谢楼主！！！

佩服楼主！

很遗憾，无法显示页面啊
是不是链接到博客上的啊

楼主辛苦了！

谢谢,可以用啊!

用不了啊

Thahks

多谢楼主了!

LZ辛苦了。。。赞一个。

多谢了，下来看看

不错

万一的博客经常更新的。不过还是多谢楼主了。

楼主辛苦了

gx

楼主你真是太好了！！！

辛苦了

楼主辛苦了。。。。。。

楼主辛苦了，万一的博客文章比较经典，也是一些基本常用的东东。

辛苦了。。

很好﹐很強大

辛苦了，支持一下
设为推荐帖

谢谢了~~~看看

辛苦了，虽然对delphi用的很少，也支持一下

Very good！

好东西~

谢谢分享

全力支持

顶顶
感谢楼主，万一。。。

为啥全是
该地址无效

接分，谢谢。呵呵

谢谢，辛苦了。

收藏了

楼主啊，我下载的怎么看不了啊

显示为已取消到该网页的导航

楼主大好人啊

Ding

谢谢，辛苦了~！！

thanks!

LZ人真不错呀

多谢

好人呐…

顶下

辛苦了

3q

载了，能看，评满分

谢谢了！辛苦~

对我这个初学者，很有用哦。谢谢楼主啦

感谢LZ

up

谢谢了

LZ辛苦了，预祝LZ新年快乐。

俺自己能看啊，xp 下没有任何问题，98的有的页面可能是乱码。
俺是用SuperCHM编译的，
不能看的要不用SuperCHM反编译了再编译

感谢LZ！

不错不错~~

JF

辛苦，感谢整理，看看

感谢LZ！

乐于奉献！

这可真是个好东西，顶！

LZ很强大，好东西。

太好了

好东东 呵呵

辛苦了lz。

谢谢了,收藏一下

lz实在是太辛苦了，一定得顶起来

UP UP

难得现在还有人整这个。

xiexie

顶一下！

有没J2SE,JSP的

"hao"

不顶不行了!敬礼!

太感动了，

不顶对不起作者了

谢谢~~~收藏了！

现在基本不用delphi了
不过还是感谢楼主的辛勤劳动
辛苦了！！！

不错。。恭喜了。。

好资料！顶一下！

谢谢LZ

好，非常好
硬是好得很

楼主历害。
学习了。

高手，感谢啊。。。

支持一下

感谢分享

无钱，无下载

下载

ding……

楼主，辛苦了，感谢分享。

支持了。。。。。。。。。。。。。。。

不错，支持先

不错，支持学习中。

好东西

TKS LZ

LZ辛苦了。。

^_^

辛苦了~

辛苦了~

谢谢分享

顶，都是好人啊

真是好东西呀，谢了！！！

nice太好了

顶，楼主，厉害

辛苦了

顶，楼主，厉害

希望delphi的生命力最强盛一些，虽然目前已经全部转向了.net方向，但是delphi也是我的一项技能，希望它能发展得好些吧

佩服佩服，谢谢楼主了，小弟去下了

感谢分享：）

记得下载后，改个名字就能正常显示了。
感谢楼主。

呵呵.高手.

看来用Delphi的人很多啊，有希望，呵呵！

为什么才1M多，这么小啊

支持一下

谢谢你的资料。

ding

非常感谢分享！！收下了

我下载了，谢谢

下载了 看不到里面的东西

全力支持!

你真是太好，出了个这么好的书，真是太感谢了。

jf

好东西~

全力支持!

可以用 非常感谢 学习中

辛苦了，谢谢。

不错。很好！

Thanks your shares.

ding henhao

dsfdsfsfsfsfsfjfjas;kgjkalgsagasegasg

很好很强大

不错，楼主，作者辛苦了

不顶不行,强大的楼主牛人大先生~~~~~~~~~~~

喜欢过的一门语言

分享精神,赞一个

感谢大家！！！
对有些网友下载后不能阅读表示遗憾！！！
人太多了，只好给前100人给分了。

!!很猛啊! 俺强烈顶楼主! 新年快乐!

楼主辛苦

XIEXIE

30. 12.

RT
最近准备玩玩这个，但一时下不去手，不知从哪开始。

望玩过等说道说道

额，我说等windowsless控件是指那种类似directui等控件，所以是可见等。但是无窗口句柄。直接绘制在form上。

非TWinControl/TGraphicControl及其子类都好.看需要,如果非必要的话,直接就是TObject(这个是必须的，即使不是显式的写上）

楼主应该写windowless而不是windowsless,否则会被当成是非Windows系统运行的…

囧，多谢指教了。我百度的时候找到等全是windowsless，。。就直接写上了。orz
TGraphicControl应该不能完全实现windowless，例如类似edit等控件，需要获得键盘输入的。

头大中

30. 12.

显示ORA-00911：无效字符。之前连接测试成功的，请问是什么问题？是数据库参数不匹配吗，怎么设置，希望能详细说明，谢谢

机器上装了Oracle的OLEDB的驱动了吗？

首先应该知道电脑里面有没有安装oracle(客户端和服务器都可以)，其次要设置adoquery的ConnectionString确保正确链接到oracle数据库，最后在adoquery的sql里面一定要有查询语句(或者是其他的数据操作)，要想将查询出来的数据显示出来，还要有datasours和dbgrid。

29. 12.

我现在做的系统前台使用delphi（嵌入到jsp里），后台使用java，

有些地方要打开新ie页面的，我使用如下方法：

hIE := CreateOleObject('InternetExplorer.Application');
hIE.visible:=True;
hIE.Navigate(url);

这里有个问题，如果当前只有一个ie进程的话（即进入这系统的ie），打开页面没问题；

但加入有多个ie进程，比如你先开一个ie（例如打开baidu），然后再开一个ie，

进入这个系统（http://127.0.0.1:7001/test），这时点击按钮弹出新ie页面，

这个页面不是弹出在当前页面前，而是在后面！

有谁知道怎么回事的，帮我解决一下，谢谢！！！！急！！！！

回答有效立刻结贴给分！

写错了，是CreateProcess，当然，还需要读注册表判断当前机器的浏览器类型，带参数调用等。

hIE := CreateOleObject('InternetExplorer.Application');

这个hIE不就是句柄么，实在不明白lsd为什么还要找一遍，

你说的SendMessage(h,WM_SYSCOMMAND,SC_RESTORE,0);我试过了，

只是激活，没法使这个窗体置前，根本没用

有其他ie进程时没法置前，哎，实在不知道怎么做了

算了，接贴

learning………………….

29. 12.

从网上找了段代码,代码中的“(Style and WS_GROUP) = WS_GROUP”是什么意思，思路上要怎么理解?
function CheckStyle(aHWnd: HWnd): Boolean;
var Style: LongInt;
begin
    Result := false;
    Style := GetWindowLong(aHWnd, GWL_STYLE);
    if (Style and WS_POPUP) = WS_POPUP then
    begin
        if (((Style and WS_GROUP) = WS_GROUP) and not ((Style and WS_DISABLED) = WS_DISABLED) and ((Style and WS_SYSMENU) = WS_SYSMENU))then
        begin
            Result := True;
        end;
    end
    else
        Result := True;
end;

不好意思，沒說清，(Style and WS_GROUP) 做與運算，得出結果后，再判斷。意思是：判斷style是否包含有ws_group

明白了，谢谢

28. 12.

TNMStrm和TNMStrmServ 这两个类在delphi6.0有但是delphi7.0都没有自带，我怎么才能加上去呢？

fastnet好用么？d7里面推荐使用indy