Delphi-SQLMemTable 多线程修改内存表

SQLMemTable 多线程修改内存表

function MTableThreadOpen(MTable_Destination,MTable_Source:TSQLMemTable;MSession:TSQLMemSession;SessName:string=''):string;
  //多线程修改或读取内存表不影响前端操作
  //MTable_Destination 内存表副本 在线程中修改的表
  //MTable_Source 内存表源文件
 begin
  try
   if SessName=''then MSession.AutoSessionName:=True else MSession.SessionName:=SessName;
    Result:=MSession.SessionName;
    MTable_Destination.DatabaseName := MTable_Source.DatabaseName;
    MTable_Destination.SessionName := MSession.SessionName;
    MTable_Destination.TableName := MTable_Source.TableName;
    MTable_Destination.Open;
  except
   Exit;
  end;
 end;


//调用方式
procedure TFORM1.A1(Sender: TObject);
  var
    MTable_Destination:TSQLMemTable;
    MSession:TSQLMemSession ;
begin
try
  try
    MTable_Destination:=TSQLMemTable.Create(NIL);
    MSession:=TSQLMemTable.Create(NIL);
    MTableThreadOpen(MTable_Destination,RtcDataModule.BData,MSession);
    with MTable_Destination do begin
       First;
       edt1.Text:=FieldByName('A1').AsString;    
    end;
  finally
   MTable_Destination.Free;
   MSession.Free;
  end;
except
  Exit;
end;
end;

------线程代码-------

function MyFun2(p:Pointer): Integer;  stdcall;
  var
  SesName: string;
  i: integer;
  SessionM:TSQLMemSession;
  Table:TSQLMemTable;
begin
  SesName := 'MyFun2';//+IntToStr(Random(100000));
SessionM:=Sessions.FindSession(SesName);   //查找有没有这个SesName
 if SessionM =nil then //判断是否有这个sesname
 begin
   SessionM := TSQLMemSession.Create(nil);
   SessionM.SessionName := SesName;
 end else exit;

 begin

   Table := TSQLMemTable.Create(nil);
    Table.SessionName := SesName;
   Table.DatabaseName := fMain.ACRTable1.DatabaseName;
   Table.TableName := fMain.ACRTable1.TableName;
   Table.Open;
    SessionM.LockSession(True);   //锁定后，其他修改Table的操作均不能同步进行
   for i := 0 to 99 do
    begin
 //    Table.Insert;
     Table.RecNo:=3;
     Table.Edit;
     Table.FieldByName('Time').AsDateTime := Now;
     Table.FieldByName('Name').AsString := SesName;
     Table.FieldByName('Integer').AsInteger := Random(MaxInt);
     Table.FieldByName('Money').AsFloat := Random * 5000;
     Table.Post;
     fMain.ACRTable1.Refresh;
 //    fMain.lbRecCount.Caption := IntToStr(fMain.ACRTable1.RecordCount);
      Sleep(150);
    end;
  SessionM.UnlockSession; //解锁
 end;
  Table.Free;
  SessionM.Free;
end;

—调用代码—

procedure TfMain.btn2Click(Sender: TObject);
 VAR
   ID: DWORD;
begin
CreateThread(nil, 0,@MyFun2, nil, 0,ID) ;
end;