张志峰的博客

水滴石川，积少成多。

导航

2016年9月20日

delphi Pointer 转成string

摘要： var s: string; p: pointer; s := PChar(p);前提p指向的字符串要以#0结尾。 阅读全文

posted @ 2016-09-20 14:49 ╰★张志峰★╮ 阅读(2932) 评论(0) 推荐(0)

Delphi 在线程中如何使用TClientSocket组件并自动检测该组件

摘要： 在线程中如何使用TClientSocket组件并自动检测该组件的事件？我想在一个线程中动态创建一个TClientSocket组件，并要求该组件能够自动检测Socket事件（例如OnRead、OnError），如何实现？ 解决方案 先自定义响应事件的过程 procedure ClientSocket1 阅读全文

posted @ 2016-09-20 14:16 ╰★张志峰★╮ 阅读(429) 评论(0) 推荐(0)