批量插入

最新推荐文章于 2024-04-13 21:32:22 发布
最新推荐文章于 2024-04-13 21:32:22 发布
阅读量731 收藏
点赞数
分类专栏： delphi 文章标签： integer function string action forms interface
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/verlongan/article/details/333980
版权 
unit unit2;

interface uses Windows, ActiveX, SysUtils, Winsock, ComObj, Variants, Forms, Classes, ComCtrls, Controls, IPMacEdit, IniFiles;

function PlugInName: PChar; stdcall;
procedure LoadDll; stdcall;
procedure UnLoadDll; stdcall;
function Config(GroupID: Integer; Right: Integer): Boolean; stdcall;
function LogProc(GroupID: Integer; Data: PByteArray; Length: ULONG; OPCODE: ULONG; Action: ULONG; PlugIn: PChar; WarnMsg: PChar): Integer; stdcall;

type  TLog = record  Time: TDateTime;
    SrcIP, DstIP: DWORD;
    PlugIn, Msg, Link: string;
    Act: integer;
  end;
  PLog = ^TLog;
const  Opcode_TOLAN = 1;
const  Opcode_TOINT = 2;
const  adOpenForwardOnly = 0;
  adOpenKeyset = 1;
  adOpenDynamic = 2;
  adOpenStatic = 3;
  adLockReadOnly = 1;
  adLockPessimistic = 2;
  adLockOptimistic = 3;
  adLockBatchOptimistic = 4;
  adUseServer = 2;
  adUseClient = 3;

procedure SaveConfig;
procedure SaveLogs;
procedure LoadConfig;

function TestConnect(UdlFile: string): Boolean;
function GetModuleName: string;
procedure ClearLogList;

var  LogList: TList;
  MaxLog: Integer;
  DataLink: string;
  DbError: Boolean = False;
  ADOConn, ADOCmd, ADORs: OLEOBJ_E_FIRST;


implementation //·µ»ØÄ£¿éÃû³ÆÈë¿Úº¯Êý function PlugInName: PChar; stdcall;
begin  Result := 'ÈÕÖ¾Êý¾Ý¿âÊä³ö';
end;

//Ä£¿é³õʼ»¯×°ÔØÈë¿Úº¯Êý procedure LoadDll; stdcall;
begin  CoInitialize(nil);
  ADOConn := CreateOleObject('ADODB.Connection');
  ADORs := CreateOleObject('ADODB.RecordSet');
  ADORs.CursorLocation := adUseClient;
  LoadConfig;
  LogList := TList.Create;
end;

//Ä£¿é½áÊøÇ°Ð对ØÈë¿Úº¯Êý procedure UnLoadDll; stdcall;
begin  if LogList.Count > 0 then SaveLogs;
  ClearLogList;
  LogList.Free;
  ADORs := Unassigned;
  ADOConn := Unassigned;
  CoUnInitialize;
end;

//ÈÕÖ¾Èë¿Úº¯Êý function LogProc(GroupID: Integer; Data: PByteArray; Length: ULONG; OPCODE: ULONG; Action: ULONG; PlugIn: PChar; WarnMsg: PChar): Integer; stdcall;
var  EnvLog: PLog;
begin  Result := 0;
  New(EnvLog);
  EnvLog^.Time := Now;
  if (LENGTH > $22) and (PWORD(@Data[$0C])^ = $0008) then  begin  case OPCODE of  Opcode_TOLAN:
        begin  EnvLog^.DstIP := ntohl(PDWORD(@DATA[$1A])^);
          EnvLog^.SrcIP := ntohl(PDWORD(@DATA[$1E])^);
        end;
      Opcode_TOINT:
        begin  EnvLog^.SrcIP := ntohl(PDWORD(@DATA[$1A])^);
          EnvLog^.DstIP := ntohl(PDWORD(@DATA[$1E])^);
        end;
    end;
  end;
  EnvLog^.PlugIn := PlugIn;
  EnvLog^.Msg := WarnMsg;
  EnvLog^.Link := WarnMsg + 256;
  EnvLog^.Act := Action and $7;
  LogList.Add(EnvLog);

end;

//ÅäÖÃÈë¿Úº¯Êý function Config(GroupID: Integer; Right: Integer): Boolean;
begin end;


function GetModuleName: string;
var  szFileName: array[0..MAX_PATH] of Char;
begin  GetModuleFileName(hInstance, szFileName, MAX_PATH);
  Result := szFileName;
end;

procedure ClearLogList;
var  i: integer;
begin  for i := 0 to LogList.Count - 1 do  begin  Dispose(PLog(LogList.Items[i]));
  end;
  LogList.Clear;
end;

//´ò¿ªÅäÖú¯Êý procedure LoadConfig;
var  IniFile: TIniFile;
begin  IniFile := TIniFile.Create(ExtractFilePath(GetModuleName) + 'LogtoDb.ini');
  MaxLog := IniFile.ReadInteger('Config', 'MaxLog', 100);
  DataLink := IniFile.ReadString('Config', 'DataLink', ExtractFilePath(Application.ExeName) + 'PlugIns/DbLink.udl');
  IniFile.Free;
end;

procedure SaveConfig;
var  IniFile: TIniFile;
begin  IniFile := TIniFile.Create(ExtractFilePath(GetModuleName) + 'LogtoDb.ini');
  IniFile.WriteInteger('Config', 'MaxLog', MaxLog);
  IniFile.WriteString('Config', 'DataLink', DataLink);
  IniFile.Free;
  DbError := False;
end;

procedure SaveLogs;
var  LogItem: PLog;
  IP: TIP;
  i: Integer;
begin  if DbError then Exit;
  try  ADOConn.Open('File Name=' + DataLink + ';');
  except  DbError := True;
    Exit;
  end;
  try  ADORs.Open('SELECT * FROM EventLog WHERE 0=1', ADOConn, adOpenKeyset, adLockBatchOptimistic);
  except  ADOConn.Close;
    DbError := True;
    Exit;
  end;

  IP := TIP.Create;
  try  for i := 0 to LogList.Count - 1 do  begin  LogItem := LogList.Items[i];
      ADORs.AddNew;
      ADORs.Fields.Item['EventTime'].Value := LogItem^.Time;
      IP.DIP := LogItem^.SrcIP;
      ADORs.Fields.Item['SrcIP'].Value := IP.IPString;
      IP.DIP := LogItem^.DstIP;
      ADORs.Fields.Item['DstIP'].Value := IP.IPString;
      ADORs.Fields.Item['PlugIn'].Value := LogItem^.PlugIn;
      ADORs.Fields.Item['Act'].Value := LogItem^.Act;
      ADORs.Fields.Item['Msg'].Value := LogItem^.Msg;
      ADORs.Fields.Item['Res'].Value := LogItem^.Link;
    end;
      ADORs.UpdateBatch;
  except  ADORs.CancelUpdate;
    DbError := True;
  end;
  IP.Free;
  ADORs.Close;
  ADOConn.Close;
end;

function TestConnect(UdlFile: string): Boolean;
begin  try  ADOConn.Open('File Name=' + UdlFile + ';');
  except  Result := False;
    Exit;
  end;
  try  ADORs.Open('SELECT EventTime,SrcIP,DstIP,PlugIn,Act,Msg,Res FROM EventLog WHERE ID=0', ADOConn, adOpenKeyset, adLockBatchOptimistic);
  except  ADOConn.Close;
    Result := False;
    Exit;
  end;
  ADORs.Close;
  ADOConn.Close;
  Result := True;
end;

end.


 unit2;

interface

uses Windows, ActiveX, SysUtils, Winsock, ComObj, Variants, Forms, Classes, ComCtrls, Controls, IPMacEdit, IniFiles;

function PlugInName: PChar; stdcall;
procedure LoadDll; stdcall;
procedure UnLoadDll; stdcall;
function Config(GroupID: Integer; Right: Integer): Boolean; stdcall;
function LogProc(GroupID: Integer; Data: PByteArray; Length: ULONG; OPCODE: ULONG; Action: ULONG; PlugIn: PChar; WarnMsg: PChar): Integer; stdcall;

type
  TLog = record
    Time: TDateTime;
    SrcIP, DstIP: DWORD;
    PlugIn, Msg, Link: string;
    Act: integer;
  end;
  PLog = ^TLog;
const
  Opcode_TOLAN = 1;
const
  Opcode_TOINT = 2;
const
  adOpenForwardOnly = 0;
  adOpenKeyset = 1;
  adOpenDynamic = 2;
  adOpenStatic = 3;
  adLockReadOnly = 1;
  adLockPessimistic = 2;
  adLockOptimistic = 3;
  adLockBatchOptimistic = 4;
  adUseServer = 2;
  adUseClient = 3;

procedure SaveConfig;
procedure SaveLogs;
procedure LoadConfig;

function TestConnect(UdlFile: string): Boolean;
function GetModuleName: string;
procedure ClearLogList;

var
  LogList: TList;
  MaxLog: Integer;
  DataLink: string;
  DbError: Boolean = False;
  ADOConn, ADOCmd, ADORs: OLEOBJ_E_FIRST;


implementation


//·µ»ØÄ£¿éÃû³ÆÈë¿Úº¯Êý

function PlugInName: PChar; stdcall;
begin
  Result := 'ÈÕÖ¾Êý¾Ý¿âÊä³ö';
end;

//Ä£¿é³õʼ»¯×°ÔØÈë¿Úº¯Êý

procedure LoadDll; stdcall;
begin
  CoInitialize(nil);
  ADOConn := CreateOleObject('ADODB.Connection');
  ADORs := CreateOleObject('ADODB.RecordSet');
  ADORs.CursorLocation := adUseClient;
  LoadConfig;
  LogList := TList.Create;
end;

//Ä£¿é½áÊøÇ°Ð对ØÈë¿Úº¯Êý

procedure UnLoadDll; stdcall;
begin

  if LogList.Count > 0 then SaveLogs;
  ClearLogList;
  LogList.Free;
  ADORs := Unassigned;
  ADOConn := Unassigned;
  CoUnInitialize;
end;

//ÈÕÖ¾Èë¿Úº¯Êý

function LogProc(GroupID: Integer; Data: PByteArray; Length: ULONG; OPCODE: ULONG; Action: ULONG; PlugIn: PChar; WarnMsg: PChar): Integer; stdcall;
var
  EnvLog: PLog;
begin
  Result := 0;
  New(EnvLog);
  EnvLog^.Time := Now;
  if (LENGTH > $22) and (PWORD(@Data[$0C])^ = $0008) then
  begin
    case OPCODE of
      Opcode_TOLAN:
        begin
          EnvLog^.DstIP := ntohl(PDWORD(@DATA[$1A])^);
          EnvLog^.SrcIP := ntohl(PDWORD(@DATA[$1E])^);
        end;
      Opcode_TOINT:
        begin
          EnvLog^.SrcIP := ntohl(PDWORD(@DATA[$1A])^);
          EnvLog^.DstIP := ntohl(PDWORD(@DATA[$1E])^);
        end;
    end;
  end;
  EnvLog^.PlugIn := PlugIn;
  EnvLog^.Msg := WarnMsg;
  EnvLog^.Link := WarnMsg + 256;
  EnvLog^.Act := Action and $7;
  LogList.Add(EnvLog);

end;

//ÅäÖÃÈë¿Úº¯Êý

function Config(GroupID: Integer; Right: Integer): Boolean;
begin
end;


function GetModuleName: string;
var
  szFileName: array[0..MAX_PATH] of Char;
begin
  GetModuleFileName(hInstance, szFileName, MAX_PATH);
  Result := szFileName;
end;

procedure ClearLogList;
var
  i: integer;
begin
  for i := 0 to LogList.Count - 1 do
  begin
    Dispose(PLog(LogList.Items[i]));
  end;
  LogList.Clear;
end;

//´ò¿ªÅäÖú¯Êý

procedure LoadConfig;
var
  IniFile: TIniFile;
begin
  IniFile := TIniFile.Create(ExtractFilePath(GetModuleName) + 'LogtoDb.ini');
  MaxLog := IniFile.ReadInteger('Config', 'MaxLog', 100);
  DataLink := IniFile.ReadString('Config', 'DataLink', ExtractFilePath(Application.ExeName) + 'PlugIns/DbLink.udl');
  IniFile.Free;
end;

procedure SaveConfig;
var
  IniFile: TIniFile;
begin
  IniFile := TIniFile.Create(ExtractFilePath(GetModuleName) + 'LogtoDb.ini');
  IniFile.WriteInteger('Config', 'MaxLog', MaxLog);
  IniFile.WriteString('Config', 'DataLink', DataLink);
  IniFile.Free;
  DbError := False;
end;

procedure SaveLogs;
var
  LogItem: PLog;
  IP: TIP;
  i: Integer;
begin
  if DbError then Exit;
  try
    ADOConn.Open('File Name=' + DataLink + ';');
  except
    DbError := True;
    Exit;
  end;
  try
    ADORs.Open('SELECT * FROM EventLog WHERE 0=1', ADOConn, adOpenKeyset, adLockBatchOptimistic);
  except
    ADOConn.Close;
    DbError := True;
    Exit;
  end;

  IP := TIP.Create;
  try
    for i := 0 to LogList.Count - 1 do
    begin
      LogItem := LogList.Items[i];
      ADORs.AddNew;
      ADORs.Fields.Item['EventTime'].Value := LogItem^.Time;
      IP.DIP := LogItem^.SrcIP;
      ADORs.Fields.Item['SrcIP'].Value := IP.IPString;
      IP.DIP := LogItem^.DstIP;
      ADORs.Fields.Item['DstIP'].Value := IP.IPString;
      ADORs.Fields.Item['PlugIn'].Value := LogItem^.PlugIn;
      ADORs.Fields.Item['Act'].Value := LogItem^.Act;
      ADORs.Fields.Item['Msg'].Value := LogItem^.Msg;
      ADORs.Fields.Item['Res'].Value := LogItem^.Link;
    end;
      ADORs.UpdateBatch;
  except
    ADORs.CancelUpdate;
    DbError := True;
  end;
  IP.Free;
  ADORs.Close;
  ADOConn.Close;
end;

function TestConnect(UdlFile: string): Boolean;
begin
  try
    ADOConn.Open('File Name=' + UdlFile + ';');
  except
    Result := False;
    Exit;
  end;
  try
    ADORs.Open('SELECT EventTime,SrcIP,DstIP,PlugIn,Act,Msg,Res FROM EventLog WHERE ID=0', ADOConn, adOpenKeyset, adLockBatchOptimistic);
  except
    ADOConn.Close;
    Result := False;
    Exit;
  end;
  ADORs.Close;
  ADOConn.Close;
  Result := True;
end;

end.
verlongan
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
批量插入实现
Alex_夜羽的博客
02-26 2782
一：使用map封装，这种方法使用于前端传值过来，然后封装批量插入 1：先创建对象 Map<String,Object> map = new HashMap<>(); Map<String, Object> params = new HashMap<>(); Test test = new Test...
批量分页插入
weixin_43834684的博客
03-12 608
public class tablelist{ public static void main(String[] args) { //1.总记录数 List<String> oldList = new ArrayList<String>(); for (int i = 0; i < 1045; i++) { oldList.add((i+1...
Mybatis批量插入的四种方式
热门推荐
一零贰肆的博客
06-13 3万+
测试结果还是显而易见的，循环插入>批量插入>BatchType插入>JDBC批量插入
jdbc批量插入的4种方式【百万条数据插入只需几秒】
C3245073527的博客
12-21 3万+
解决批量插入【BatchUpdateException】异常，以及4秒插入100W条数据
实战演练 | MySQL 或其他 DBMS 执行批量插入的三种方式
Navicat 官方账号
08-22 3780
在今天的文章中，我们介绍了一些用于在 MySQL 和其他 DBMS 执行批量插入的方法。如果你对Navicat for MySQL感兴趣，可以免费试用 14 天！
【数据库】实现批量快速插入大量数据的六种方案
USTSD的博客
09-14 2万+
一、(MySQL)通过函数/存储过程 1、链接 https://www.jb51.net/article/207999.htm https://blog.csdn.net/FloraCHY/article/details/117792903 2、代码 -- 进入数据库 use test; -- 显示所有表 show tables; -- 创建majors表 create table majors...
mybatis中批量插入的两种方式(高效插入)
09-01
在处理大量数据时，批量插入是一种提高性能的有效策略。本文将深入探讨MyBatis中实现批量插入的两种高效方式。 ### 1. MyBatis `foreach` 标签 `foreach` 是MyBatis中用于在SQL语句中迭代集合的标签，特别适合构建...
redis集群批量插入
11-23
当面对大量数据时，批量插入可以显著提高效率，减少网络通信开销。本文将详细讨论如何在Java环境下连接Redis集群并实现批量插入String类型的数据。 首先，我们需要理解Redis集群的基本概念。Redis集群是通过分片...
mybatispuls3.5使用批量插入
07-21
在MyBatisPlus 3.5版本中，批量插入功能是其核心优化之一，这对于大数据量的操作尤其重要，可以显著提高数据插入的效率。 批量插入的优势在于减少了数据库连接的创建和关闭次数，以及降低了网络通信的开销。...
.Net中批量插入的几种实现方法
10-20
Net中批量插入的几种实现方法之间的比较:循环添加 每次1行 循环添加 每次1000行 SqlBulkCopy批量添加 表值参数批量添加
高效批量插入和更新
03-24
C#批量插入，更新ORACLE 保存100万条数据大概3-5秒 保存或者更新100万条数据大概20秒 DataTable保存100万条数据大概1-2分钟 可能因环境原因时间有差异，不过可以看出性能还是很大提升的
CAD批量插入正射影像
11-12
在CAD（计算机辅助设计）领域，批量插入正射影像是一项常用的任务，特别是在地理信息系统（GIS）与CAD结合的工作中。正射影像，通常由无人机或卫星拍摄，是经过处理后的图像，消除了地形和视角引起的失真，呈现出与...
YII框架批量插入数据的方法
10-20
主要介绍了YII框架批量插入数据的方法,结合实例形式分析了Yii基于自定义函数实现数据批量插入的操作技巧,需要的朋友可以参考下
MSSQL批量插入数据优化详细
09-09
在SQL Server中，批量插入数据是一项重要的性能优化技术，尤其当需要处理大量数据时。本文将探讨如何在MSSQL中高效地批量插入数据，并针对给出的代码示例进行分析和优化。 首先，我们来看一个常见的批量插入方法，...
Mybatis是什么？
weixin_69797860的博客
11-20 822
Mybatis是什么？
10. 批量插入
DevOps海洋的渔夫@专栏
06-08 683
10. 批量插入前言上一章节，我们使用 PreparedStatement 操作了 BLOB 字段，下面我们再来看看批量插入的操作。批量插入1. 批量执行SQL语句当需要成批插入或者更新...
MyBatis批量插入的五种方式
最新发布
qq_45525848的博客
04-13 3176
MyBatis批量插入的五种方式
Mybatis批量插入的几种方式
qq_58557109的博客
01-22 2879
这种方式是我们比较常用的方式，比传统的循环调用xml插入语句要好得多，在MySql的文档中也提到过这个，如果要优化插入速度时，可以将许多小型操作组合到一个大型操作中。在我们的项目中，会不停地使用批量插入这个方法，而因为MyBatis对于含有的语句（即包含元素），无法采用缓存，所以在每次调用方法时，都会重新解析sql语句。在相关的情况下：将有大量的记录要插入，并且将达到数据库配置的限制（默认情况下，每条语句大约有2000个参数），如果语句本身变得太大，最终可能会出现DB堆栈错误。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值