当前位置 : 主页 > 编程语言 > delphi >

从外部应用程序将数据写入Delphi TStringGrid

来源:互联网 收集:自由互联 发布时间:2021-06-23
我有一个用Delphi编写的遗留应用程序,需要构建一个机制 阅读和 写作 来自/到TStringGrid的数据. 我没有应用程序的源代码,没有自动化接口,供应商不太可能提供. 因此我创造了 一个C DLL,它
我有一个用Delphi编写的遗留应用程序,需要构建一个机制

>阅读和
>写作

来自/到TStringGrid的数据.

我没有应用程序的源代码,没有自动化接口,供应商不太可能提供.

因此我创造了

>一个C DLL,它注入
>一个Delphi DLL(由我编写)到
>遗留应用程序的地址空间.

DLL 2可以访问遗留应用程序内的TStringGrid实例,读取单元格值并将它们写入调试日志.

阅读工作正常.但是,当我尝试使用类似的调用将数据写入网格单元格时

realGrid.Cells[1,1] := 'Test';

发生访问冲突.

这是代码:

procedure DllMain(reason: integer) ;
type
  PForm = ^TForm;
  PClass = ^TClass;
  PStringGrid = ^TStringGrid;
var
[...]
begin
  if reason = DLL_PROCESS_ATTACH then
  begin
    handle := FindWindow('TForm1', 'FORMSSSSS');

    formPtr := PForm(GetVCLObjectAddr(handle) + 4);

    if (not Assigned(formPtr)) then
    begin
      OutputDebugString(PChar('Not assigned'));
      Exit;
    end;

    form := formPtr^;

    // Find the grid component and assign it to variable realGrid
    [...]

    // Iterate over all cells of the grid and write their values into the debug log
    for I := 0 to realGrid.RowCount - 1 do
      begin
        for J := 0 to realGrid.ColCount - 1 do
          begin
            OutputDebugString(PChar('Grid[' + IntToStr(I) + '][' + IntToStr(J) + ']=' + realGrid.Cells[J,I]));
            // This works fine
          end;
      end;

    // Now we'll try to write data into the grid
    realGrid.Cells[1,1] := 'Test'; // Crash - access violation
  end;
end; (*DllMain*)

如何在不出现访问冲突问题的情况下将数据写入TStringGrid?

这种方法根本不起作用.目标可执行文件中有两个VCL实例.一个由目标应用程序拥有,另一个由DLL拥有.这是一个VCL实例太多了.如果使用完全相同版本的Delphi来构建目标应用程序和DLL,那么您可能可以逃脱.

但是,您仍然可以使用两个堆管理器.并且您的代码在不同的VCL实例之间传递堆分配的内存.您将在一个堆中分配并在另一个堆中解除分配.这不起作用,将导致访问冲突.

您正在将DLL堆中分配的字符串传递给使用目标应用程序堆的字符串网格对象.那是行不通的.

我认为访问冲突将发生在DLL代码尝试释放由目标应用程序的堆管理器分配的单元格[i,j]的先前值的位置.

基本上你正在尝试的是不会工作.你可以找到目标应用程序的TStringGrid.SetCell实现的地址,并伪造一个调用.但是您还需要找到目标应用程序的GetMem,FreeMem等实现,并确保从DLL到目标应用程序的所有动态内存都已由目标应用程序堆分配和释放.你将有一个工作的魔鬼使这项工作.当然,如果目标应用程序和DLL都使用共享内存管理器,那么您可能只能使这种方法成为可能.

更简单的是伪造键盘输入.我个人会考虑使用AutoHotKey的可行性.

网友评论