procedure TForm1.btn2Click(Sender: TObject); var G: TGUID; S: string; bs: TBytes; begin G := G.NewGuid; S := G.ToString; //{9B60BA3F-8EE5-448F-BC9B-64 ...
主要基于从kafka0.11.0版本开始之后的版本进行描述 1、批处理 传统消息中间件，一次只发送单挑消息；kafka，一次发送多条消息，微批处理。 2、客户端优化 新版客户端摒弃单线程，采用双线程模式——主线程+Sender线程。 主线程负责将消息置入客户端缓存(缓存会将多个消息聚合为1个批次)； ...
分类：
其他好文 时间：
2020-05-02 16:43:55
阅读次数：
56
private void button6_Click(object sender, EventArgs e) { byte[] inParam = null; IntPtr ptr = IntPtr.Zero; int outlen = -1; string outstr = ""; inParam ...
原始语句： INSERT INTO mail_send ( createTime, updateTime, flag, accountId, messageID, sender, senderName, fromer, replyTo, toer, ccer, bccer, SUBJECT, tex ...
分类：
其他好文 时间：
2020-04-30 15:34:27
阅读次数：
64
管道通信包括匿名管道和命名管道，匿名管道只能用在父子进程之间，命名管道可以用在两个进程甚至跨服务器通信。 服务器端代码： private void button1_Click(object sender, EventArgs e) { try { using (NamedPipeClientStre ...
分类：
系统相关 时间：
2020-04-30 09:22:55
阅读次数：
91
[Flags] //注意标志 public enum myColor { None=0, Red=1,Green=2,Blue=4,Yellow=8 }; private void Form1_MouseClick(object sender, MouseEventArgs e) { myColor ...
分类：
其他好文 时间：
2020-04-28 20:24:40
阅读次数：
102
（1）Producer的API 1、发送流程：Kafka 的 Producer 发送消息采用的是异步发送的方式。在消息发送的过程中，涉及到了两个线程——main 线程和 Sender 线程，以及一个线程共享变量——RecordAccumulator。main 线程将消息发送给 RecordAccum ...
TFindDialog组件用于显示一个查找对话框，允许用户在文件中查找文本。 1、设置“查找”对话框显示时的位置，通常打开查找对话框时，出现的位置可能会影响视觉效果，下面示例可以解决。 procedure TForm1.Button2Click(Sender: TObject); var Point ...
分类：
其他好文 时间：
2020-04-27 09:18:25
阅读次数：
63
uses Character; {Character.ToUpper} procedure TForm1.Button1Click(Sender: TObject); var c: Char; str: string; begin c := ToUpper('a'); str := ToUpper( ...
使用的是 Delphi 2010 下 IOUtils 单元的 TDirectory.Copy 函数: uses IOUtils; procedure TForm1.btn1Click(Sender: TObject); const SourceDir = 'C:\Temp1'; { 源文件夹必须存在 ...
分类：
其他好文 时间：
2020-04-24 21:42:16
阅读次数：
75
