将tcp数据保存到表数据库中

Question

我正在使用 VCL TCPServer 组件，每次有数据时它都会触发事件 在 TCP 端口上收到。在事件数据中可用文本形式 程序的参数。因为我想把这些数据保存到mysql中 我想知道解决这个问题的最佳方法是什么。 直接在过程中对收到的每个数据使用 INSERT SQL 命令 或将数据存储在内存中（即TStrings）然后调用 函数每隔 X（使用计时器）分钟执行 INSERT 命令？

谢谢

Answer 1

好吧，

您不应该将数据保存在事件中，因为这样做会破坏组件执行流程。相反：

1 - 您可以缓冲要保存的所有数据，并且时不时地保存它们（不好，如果您的应用程序发生问题，您可能会丢失大量数据）。

2 - 在事件内部，创建一个线程来接收数据并将其保存到数据库中。这样，您就不会中断事件流的执行，并且可以动态保存所有数据。如果您这样做，您还将多使用一个 CPU 核心。这就是我要做的。

解决方案 2 的代码（未经测试）：

TOnError = procedure(aError : string) of object;

TSaveDataThread = class(TThread)
private
  oError : string;
  oOnError : TOnError;
  oDataToSave : string;
  procedure SaveDataToDataBase;
  procedure CallOnError;
protected
  procedure Execute; override;
  constructor Create(aDataToSave : string); reintroduce;
public
  property OnError : TOnError read oOnError write oOnError;
end;

procedure TSaveDataThread.CallOnError;
begin
  oOnError(oError);
end;

constructor TSaveDataThread.Create(aDataToSave: string);
begin
  inherited Create(True);
  FreeOnTerminate := True;
  oDataToSave := aDataToSave;
end;

procedure TSaveDataThread.Execute;
begin
  inherited;
  Self.SaveDataToDataBase;
end;

procedure TSaveDataThread.SaveDataToDataBase;
begin
  //put here your code to save aDataToSave to the database
  //set error on oError
  oError := 'error';
  Synchronize(CallOnError);
end;

procedure TForm5.OnError(aError: string);
begin
  ShowMessage(aError);
end;

procedure TForm5.Button1Click(Sender: TObject);
var
  vSaveDataThread : TSaveDataThread;
  vDataToSave : string;
begin
  //change this method fot the event you want to use
  vDataToSave := 'this is the data that will be saved to the database';
  vSaveDataThread := TSaveDataThread.Create(vDataToSave);
  vSaveDataThread.OnError := Self.OnError;
  vSaveDataThread.Start;
end;

如果您不知道线程，请查看以下内容：多线程 - Delphi 方式