如何把从数据库读出的数据放在缓冲区中?? 我的功能是把数据先读到一个缓冲区里,最后在用SOCKET发送出去,请问这个缓冲区应该是什么?怎么实现???谢谢大家
以下是在线程里对数据库的操作代码,就是要在这里把读出来的数据放到缓冲区里.然后在令一个线程在对缓冲区数据进行处理,在发送出去
procedure MyThread.Execute;
var
i:Integer;
begin
inherited;
sleep(2);
i:=0;
form1.Timer1.Enabled:=false;
if AdoConnection.Connected then
begin
AdoQuery.SQL.Clear;
AdoQuery.SQL.Add('select * from textphone');
AdoQuery.Open;
while not AdoQuery.Eof do
begin
form1.bsSkinMemo1.Lines.Add(AdoQuery.FieldByName('PhoneNumber').AsString+' '+AdoQuery.FieldByName('test').AsString+' '+inttostr(i));
AdoQuery.Next;
sleep(20);
end;
end;
AdoQuery.Close;
AdoConnection.Close;
form1.Timer1.Enabled:=true;
以下是在线程里对数据库的操作代码,就是要在这里把读出来的数据放到缓冲区里.然后在令一个线程在对缓冲区数据进行处理,在发送出去
procedure MyThread.Execute;
var
i:Integer;
begin
inherited;
sleep(2);
i:=0;
form1.Timer1.Enabled:=false;
if AdoConnection.Connected then
begin
AdoQuery.SQL.Clear;
AdoQuery.SQL.Add('select * from textphone');
AdoQuery.Open;
while not AdoQuery.Eof do
begin
form1.bsSkinMemo1.Lines.Add(AdoQuery.FieldByName('PhoneNumber').AsString+' '+AdoQuery.FieldByName('test').AsString+' '+inttostr(i));
AdoQuery.Next;
sleep(20);
end;
end;
AdoQuery.Close;
AdoConnection.Close;
form1.Timer1.Enabled:=true;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货