检测字串有没有重复问题,EXE里成功 DLL里不成功!!!(100分)

代码在EXE里运行,没有错,但是写在DLL里就不起作用了,望高手指正错误!!!

var
flag:boolean;
gcount:integer=0;
gdata:array [0..500] of integer; //这三个是全局

//mi1 为字符串,里面记录的是数字.每次产生一样或不一样的数值,得到 mi1 的值后,然
//后才运行下面的代码,但是在DLL没有一点效果,EXE里完全正常没错

procedure congfu;
var
i:integer;
begin

flag:=true;
for i:=0 to gcount-1 do
begin
if StrToInt(mi1)=gdata then //把 mi1转成整形变量,然后判断
begin
flag:=false;
messagebox(0,'字串和上一次重复,停止运行!','注意:',mb_ok);
exit;
end;
end;

if flag=true then
begin
gdata[gcount]:=StrToInt(mi1);
//gcount:=gcount+1; //这二种方式在EXE全可以
inc(gcount); //累加变量
messagebox(0,'字串没有重复','正常:',mb_ok);
end;

end;

DLL执行时在单独的地址空间里，你的全局变量在DLL中就不起作用了，
要让程序和DLL中共享数据，可以用内存映射文件的方法才行,下面给你一篇文章，希望对你有帮助:

淺談Delphi中進程間的資料共用(DLL)

　　DLL是创建Windows应用程序，实现代码重用的重要手段。那么当我们需要在进程间共享数据时，怎样做才能快捷方便地实现呢？在32位应用系统中，每个应用程序会将DLL映射到自己的地址空间，同时DLL中的数据也就随之被映射了。这样，每个应用程序都有自己的数据实例，在一个应用程序中修改DLL中的全局变量，不会影响其它的应用程序。DLL的使用似乎与我们的目的相背离，那么如何才能实现我们想要的东东呢？这里给大家介绍一种特殊的技术，那就是内存映射文件。

　　内存映射文件提供了一种方法，就是在WIN32系统的地址空间保留一块内存区域，物理存储可以向其中提交。并且内存映射文件不只是磁盘文件，也可以是WIN32的页面文件，而且后者比前者要好，因为这意味着可以像访问一个磁盘文件那样访问内存中的一个区域，而不用创建临时文件，用完后还得删除它。WIN32有自己的管理页面调度文件，当不需要页面调度文件时，系统会自动将有关区域释放。以下是具体的实现代码：
library Project1;
uses
shareMem,
windows,
SysUtils,
Classes;
const
　MFileName: Pchar = ’ShareData’;
　//定义一个记录类型，你所需要共享的数据就保存在这里。
　//当在进程中调用GetDllData时，进程中也应该定义一个与这个一样的记录类型。
type
　PGlobalDllData = ^TGlobalDllData;
　TGlobalDllData = record
　s: string[50];
　i: integer;
end;

var
　GlobalData: PGlobalDllData; //这是一个全局变量，指向创建的内存映射文件。
　MapHandle: THandle;

　//给外部进程调用的过程，当外部进程调用这个过程后，形参AGlobalData就指向了我//们创建的内存映射文件. 我们可以创建两个进程, 同时调用这个过程, 那么在其中一个进 //程中修改数据后, 在另外一个进程中既可反应出来, 实现了我们需要的共享.

procedure GetDllData(var AGlobalData: PGlobalDllData);stdcall; begin
　AGlobalData := GlobalData;
end;

procedure OpenThisData;
var
　size: integer;
begin
　size := sizeof(TGlobalDllData);
　//创建一个内存文件映射对象，MfileName保存的值就是该对象的名字。
　mapHandle := CreateFileMapping(Dword(-1), nil, page_readWrite, 0, size, MFileName);

　if mapHandle = 0 then
　　RaiseLastWin32Error;
　　//把文件的视图映射到调用进程的地址空间，该函数的返回值就是该对象的首地址。注//意，这是调用进程的地址，两个应用程序调用该DLL，返回值是不一样的。
　GlobalData := MapViewOfFile(mapHandle, File_map_all_Access, 0, 0, size);

　Globaldata^.s := ’TEST’;
　GlobalData^.i := 5;
　if GlobalData = nil then
　begin
　　CloseHandle(MapHandle);
　　RaiseLastWin32Error;
　end;
end;
//DLL从进程中分离出来时，应该释放相应的空间
procedure CloseThisData;
begin
　unmapViewOfFile(GlobalData);
　closeHandle(MapHandle);
end;

procedure DllEntryPoint(dwReason: DWord);
begin
　case dwReason of
　　Dll_Process_Attach: OpenThisData; //调用DLL时传入的参数，由系统自动传入
　　Dll_Process_Detach: CloseThisData; //释放DLL时传入的参数，系统自动传入。
　end;
end;

{$R *.res}

exports
　GetDllData; //外部应用程序调用的就是这个过程。
　
begin
　DllProc := @DllEntryPoint; //该变量是一个全局变量，由它来指定DLL的入口及出 //口函数。
　DllEntryPoint(Dll_Process_Attach);
end.
//以上代码在DELPHI6中编译通过。

问题: 急！！！！dll全局变量问题 ( 积分: 50 )
分类: Windows API

来自: zzb1984, 时间: 2004-03-09 7:55:00, ID: 2492079
在dll我设了个全局变量path
我在dll的函数a中改变了path的值
path := GetCurrentDir;
但当我在函数b中的
if length(path) <= 0 then
path := 'null';
path居然为'null'

难道在dll中无法在不同函数中共享全局变量吗
全部代码如下
unit HKProc;

interface

uses
Windows, Messages, Dialogs, SysUtils, TLHelp32;

var
hNextHookProc: HHook;
procSaveExit: Pointer;
userName, path : string;
lpBuffer :array[1..64] of Char;
nSize :Cardinal;
myfile : textfile;

function shellproc(iCode: Integer;
wParam: WPARAM;
lParam: LPARAM): LRESULT; stdcall; export;
function EnableHotKeyHook: BOOL; export;
function DisableHotKeyHook: BOOL; export;
procedure HotKeyHookExit; far;


implementation

function shellproc(iCode: Integer;
wParam: WPARAM;
lParam: LPARAM): LRESULT; stdcall; export;
var
szTitle:string; //当前窗口名称
temp : TDateTime;
processPath:string;
Handler : THandle;
begin
Result := 0;
If iCode < 0 Then
begin
Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);
Exit;
end
else if iCode=HSHELL_WINDOWCREATED then
begin
SetLength(szTitle, 255);
SetLength(szTitle, GetWindowText(wParam,pchar(szTitle),254));

{ nSize := 255;
GetUserName(@lpBuffer, nSize);
userName := Copy(lpBuffer, 1, nSize-1);
path := GetCurrentDir;
path:=path + '/' + userName + DateToStr(now()) +'.txt';
AssignFile(myfile, 'E:/delphiProgram/managerComputer/windowtext.txt');
append(myfile);
Writeln(myfile, Path );
CloseFile(myfile);
}

if length(path) <= 0 then
path := 'null';
AssignFile(myfile, 'E:/delphiProgram/managerComputer/windowtext.txt');
append(myfile);
Writeln(myfile, Path );
CloseFile(myfile);

end;
end;


function EnableHotKeyHook: BOOL; export;
begin
nSize := 255;
GetUserName(@lpBuffer, nSize);
userName := Copy(lpBuffer, 1, nSize-1);
path := GetCurrentDir;
path:=path + '/' + userName + DateToStr(now()) +'.txt';
AssignFile(myfile, 'E:/delphiProgram/managerComputer/windowtext.txt');
append(myfile);
Writeln(myfile, Path );
CloseFile(myfile);

Result := False;
if hNextHookProc <> 0 then Exit;
// 挂上 WH_KEYBOARD 这型的 HOOK, 同时, 传回值必须保留下
// 来, 免得 HOOK 呼叫链结断掉
hNextHookProc := SetWindowsHookEx(WH_SHELL,
shellproc,
HInstance,
0);
Result := hNextHookProc <> 0;
end;


function DisableHotKeyHook: BOOL; export;
begin
if hNextHookProc <> 0 then
begin
UnhookWindowshookEx(hNextHookProc); // 解除 Keyboard Hook
hNextHookProc := 0;
MessageBeep(0);
MessageBeep(0);
end;
Result := hNextHookProc = 0;
end;

procedure HotKeyHookExit;
begin
// 如果忘了解除 HOOK, 自动代理解除的动作
if hNextHookProc <> 0 then DisableHotKeyHook;
ExitProc := procSaveExit;
end;

end.



来自: wisenow, 时间: 2004-03-09 7:57:13, ID: 2492082
当然是null了

用内存映像吧

来自: zzb1984, 时间: 2004-03-09 8:02:15, ID: 2492087
如何内存映像
请赐教

来自: fu_qi_ming, 时间: 2004-03-09 8:37:42, ID: 2492143
我想应该没问题吧。来测测先。

来自: zzb1984, 时间: 2004-03-09 8:58:52, ID: 2492172
我是想把用钩子记录下的窗口标题栏名称保存到dll所在的文件夹
一开始，我在shellproc用path获得dll所在的文件夹的路径，path := GetCurrentDir;
结果当我打开一个网页时，
path：= H:/program files/internet explorer/IEXPLORE.EXE

为此我到EnableHotKeyHook:中，全局变量path := GetCurrentDir;
的确获得dll所在的文件夹的路径,但是通过全局变量path传不进shellproc
在shellproc中path 未改变，仍为空串



来自: zzb1984, 时间: 2004-03-09 8:50:33, ID: 2492183
只要在shellproc用path获得dll所在的文件夹的路径
用什么方法都行


来自: fu_qi_ming, 时间: 2004-03-09 9:02:46, ID: 2492219
为什么会这样，什么原因，
按道理他和 hNextHookProc 一样，为什么 hNextHookProc可以，他不可以
难道是String类型的问题。

来自: fu_qi_ming, 时间: 2004-03-09 9:09:50, ID: 2492240
我知道了，你的Path是在EnableHotKeyHook中初始化的，而这个函数是在你的
启动Hook的进程中执行的，也就是说其他的进程中全为空。

我想把Path初始化放入Hook的回调函数中应该就好了。

来自: fu_qi_ming, 时间: 2004-03-09 9:16:04, ID: 2492260
修改后代码，加了个全局变量IsExistPath，检测Path是否初始化过。
修改了Hook的回调函数：

function shellproc(iCode: Integer;
wParam: WPARAM;
lParam: LPARAM): LRESULT; stdcall; export;
var
szTitle:string; //当前窗口名称
temp : TDateTime;
processPath:string;
Handler : THandle;
begin
Result := 0;
If iCode < 0 Then
begin
Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);
Exit;
end
else if iCode=HSHELL_WINDOWCREATED then
begin
SetLength(szTitle, 255);
SetLength(szTitle, GetWindowText(wParam,pchar(szTitle),254));

if not IsExistpath then
begin
nSize := 255;
GetUserName(@lpBuffer, nSize);
userName := Copy(lpBuffer, 1, nSize-1);
path := GetCurrentDir;
path:=path + '/' + userName + DateToStr(now()) +'.txt';
isExistpath:=true;
end;

if length(path) <= 0 then
path := 'null';
AssignFile(myfile, 'E:/pp.txt');
append(myfile);
Writeln(myfile, Path );
Writeln(myfile, szTitle );
CloseFile(myfile);

end;
end;


来自: zzb1984, 时间: 2004-03-09 9:17:38, ID: 2492274
也许
我试了一下内存映射，好像还是不行
hMapFile : THandle;
MapFilePointer: pointer;

function EnableHotKeyHook: BOOL; export;
var
hMapFile : THandle;
begin
nSize := 255;
GetUserName(@lpBuffer, nSize);
userName := Copy(lpBuffer, 1, nSize-1);
path := GetCurrentDir;
path:=path + '/' + userName + DateToStr(now()) +'.txt';

hMapFile := CreateFileMapping (
$FFFFFFFF, // 特殊内存映射句柄
nil, page_ReadWrite, 0,10000,
'DdhDemoMappedFile'); // 文件名
if hMapFile <> 0 then
MapFilePointer := MapViewOfFile (
hMapFile, // 上面映象文件的句柄
File_Map_All_Access,
0, 0, 0) // 访问整个映象文件
else
ShowMessage ('hMapFile = 0');
if MapFilePointer = nil then
ShowMessage ('MapFilePointer = nil');

StrCopy ( PChar (MapFilePointer), PChar (path) );//把内容写入共享内存
temp := PChar (MapFilePointer);//从共享内存读出内容

if length(temp) <= 0 then
temp := 'null';

AssignFile(myfile, 'E:/delphiProgram/managerComputer/windowtext.txt');
append(myfile);
Writeln(myfile, temp );
CloseFile(myfile);

Result := False;
if hNextHookProc <> 0 then Exit;
// 挂上 WH_KEYBOARD 这型的 HOOK, 同时, 传回值必须保留下
// 来, 免得 HOOK 呼叫链结断掉
hNextHookProc := SetWindowsHookEx(WH_SHELL,
shellproc,
HInstance,
0);
Result := hNextHookProc <> 0;
end;

在shellproc中
path := PChar (MapFilePointer);//从共享内存读出内容
在shellproc中path 未改变，仍为空串



来自: fu_qi_ming, 时间: 2004-03-09 9:21:09, ID: 2492290
看了你上面的说明，我知道了。你要存放的目录，
你只有用内存影射吧。

来自: zzb1984, 时间: 2004-03-09 9:21:57, ID: 2492293
我在shellproc用path获得dll所在的文件夹的路径，path := GetCurrentDir;
结果当我打开一个网页时，
path：= H:/program files/internet explorer/IEXPLORE.EXE
得不到dll所在的文件夹的路径

来自: zzb1984, 时间: 2004-03-09 9:25:49, ID: 2492308
我试了一下内存映射，好像还是不行


来自: 魏启明, 时间: 2004-03-09 9:47:44, ID: 2492364
你的难道
是对的

Dll是无法使用全局变量，

只有用内存映射文件的方法

也可以，把全局变量最为一个参数传入，这样可以在调用者这边维护她

来自: wisenow, 时间: 2004-03-09 9:51:26, ID: 2492372
偶写的自己用的使用内存映像的几个函数，给你了
// --------------------------------WriteShareData-------------------------------
// 名 称：WriteShareData
// 功 能：写内存映像文件，保存一个整形数据
// 参 数：
// ShareName 内存映像文件的唯一标示
// Data 要写入的数据
// DataSize 数据的大小
// 返 回 值：内存映像的句柄，调用者需要保存，在它不再使用后要CloseHandle
// 日 期：2004.02.05
// 修 改：????.??.??
function WriteShareData(ShareName: pchar; Data: pointer; DataSize: Cardinal): THandle; export;
// --------------------------------ReadShareData--------------------------------
// 名 称：ReadShareData
// 功 能：写内存映像文件，保存一个整形数据
// 参 数：
// ShareName 内存映像文件的唯一标示，必须是已经存在的
// Data 读出的数据缓冲区
// DataSize 要读出数据缓冲的大小，调用者必须知道
// 返 回 值：无
// 日 期：2004.02.05
// 修 改：????.??.??
procedure ReadShareData(ShareName: pchar; Data: pointer; DataSize: Cardinal); export;
// --------------------------------WriteShareInteger----------------------------
// 名 称：WriteShareInteger
// 功 能：写内存映像文件，保存一个整形数据
// 参 数：
// ShareName 内存映像文件的唯一标示
// h 要写入的数据
// 返 回 值：内存映像的句柄，调用者需要保存，在它不再使用后要CloseHandle
// 日 期：2004.02.05
// 修 改：????.??.??
function WriteShareInteger(ShareName: pchar; h: integer): THandle; export;
// --------------------------------ReadShareInteger-----------------------------
// 名 称：ReadShareInteger
// 功 能：读内存映像文件中的整形数据
// 参 数：
// ShareName 内存映像文件的唯一标示，必须是已经存在的
// 返 回 值：内存映像文件中的数据
// 日 期：2004.02.05
// 修 改：????.??.??
function ReadShareInteger(ShareName: pchar): integer; export;




function WriteShareData(ShareName: pchar; Data: pointer; DataSize: Cardinal): THandle;
var
tmpData: pointer;
begin
result := CreateFileMapping(DWord($FFFFFFFF), nil, PAGE_READWRITE, 0,
DataSize, ShareName);
tmpData := MapViewofFile(result, FILE_MAP_WRITE, 0, 0, 0);
move(Data^, tmpData^, DataSize);
UnMapViewofFile(tmpData);
end;

procedure ReadShareData(ShareName: pchar; Data: pointer; DataSize: Cardinal);
var
hMap: THandle;
tmpData: pointer;
begin
hMap := CreateFileMapping(DWord($FFFFFFFF), nil, PAGE_READWRITE,
0, DataSize, ShareName);
try
tmpData := MapViewofFile(hMap, FILE_MAP_READ, 0, 0, 0);
move(tmpData^, Data^, DataSize);
UnMapViewofFile(tmpData);
finally
CloseHandle(hMap);
end;
end;

function ReadShareInteger(ShareName: pchar): integer;
begin
ReadShareData(ShareName, @result, sizeof(integer));
end;

function WriteShareInteger(ShareName: pchar; h: integer): THandle;
begin
result := WriteShareData(ShareName, @h, sizeof(integer));
end;

来自: zzb1984, 时间: 2004-03-09 10:20:11, ID: 2492447
hMapFile : THandle;
MapFilePointer: pointer;

function EnableHotKeyHook: BOOL; export;
var
hMapFile : THandle;
begin
nSize := 255;
GetUserName(@lpBuffer, nSize);
userName := Copy(lpBuffer, 1, nSize-1);
path := GetCurrentDir;
path:=path + '/' + userName + DateToStr(now()) +'.txt';

hMapFile := WriteShareData('monitor', @path, 255);
ReadShareData('monitor', @temp, 255);
if length(temp) <= 0 then
temp := 'null';

AssignFile(myfile, 'E:/delphiProgram/managerComputer/windowtext.txt');
append(myfile);
Writeln(myfile, temp );
CloseFile(myfile);

Result := False;
if hNextHookProc <> 0 then Exit;
// 挂上 WH_KEYBOARD 这型的 HOOK, 同时, 传回值必须保留下
// 来, 免得 HOOK 呼叫链结断掉
hNextHookProc := SetWindowsHookEx(WH_SHELL,
shellproc,
HInstance,
0);
Result := hNextHookProc <> 0;
end;

在shellproc中
ReadShareData('monitor', @path, 255);

改完后运行
主函数执行到EnableHotKeyHook提示"access violation at ....."





来自: fu_qi_ming, 时间: 2004-03-09 12:43:51, ID: 2492922
你写的内存映射,对吗?

应该是先Open,失败然后Create
你在启动Hook中Create了,记下变量在回调函数中没用,因为是不同进程.
所以映射进每个进程时要,OpenFileMapping.初始化变量MapFilePointer

所以,你应该在Dll的的Entry函数中初始化MapFilePointer(即OpenFileMapping)
或者回调函数中.
也就是说每个进程要OpenFileMapping一次.

来自: zzb1984, 时间: 2004-03-09 15:00:55, ID: 2493305
>>fu_qi_ming
按你的方法终于成功了
多谢！

来自: zzb1984, 时间: 2004-03-09 15:01:36, ID: 2493309
多人接受答案了。

得分大富翁: fu_qi_ming-30,wisenow-20,