Discussion :

[Raylemon]

Bonjour,
Depuis quelques temps déjà, je souhaite porter une de mes anciennes application écrite en Delphi vers dotnet.

Je cale sur un point. Une de mes anciennes classe se base sur les API de Windows (notamment CreateFileMapping et SendMessage), afin de dialoguer avec mIRC.

La classe qui marchait avec Delphi ne fonctionne plus avec C#.

Seulement, je suis incapable de dire si c'est un problème avec sendmessage ou une erreur de réécriture.

Si quelqu'un sait me donner un petit coup de pouce...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
using System;
using System.Collections.Generic;
using System.Diagnostics;
using System.Runtime.InteropServices;
using System.Text;
 
namespace Antalys
{
	/// <summary>
	/// Description of MircMSG.
	/// </summary>
	public class MircMSG : IDisposable
	{
		IntPtr FileMapHandle   = IntPtr.Zero;
		IntPtr FileMap         = IntPtr.Zero;
 
		const int WM_USER      = 0x400;
		const int WM_MCOMMAND  = WM_USER+200;
		const int WM_MEVALUATE = WM_USER+201;
 
		[DllImport("kernel32.dll", SetLastError = true, CharSet = CharSet.Auto)]
		public static extern IntPtr CreateFileMapping(
			IntPtr hFile,
			IntPtr lpFileMappingAttributes,
			FileMapProtection flProtect,
			uint dwMaximumSizeHigh,
			uint dwMaximumSizeLow,
			[MarshalAs(UnmanagedType.LPTStr)] string lpName);
 
		[Flags]
		public enum FileMapProtection : uint
		{
   			PageReadonly = 0x02,
    		PageReadWrite = 0x04,
    		PageWriteCopy = 0x08,
    		PageExecuteRead = 0x20,
    		PageExecuteReadWrite = 0x40,
    		SectionCommit = 0x8000000,
    		SectionImage = 0x1000000,
    		SectionNoCache = 0x10000000,
    		SectionReserve = 0x4000000,
		}
 
		[DllImport("kernel32.dll", SetLastError = true)]
		static extern IntPtr MapViewOfFile(
			IntPtr hFileMappingObject,
			FileMapAccess dwDesiredAccess,
			uint dwFileOffsetHigh,
			uint dwFileOffsetLow,
			uint dwNumberOfBytesToMap);
 
		[Flags]
		public enum FileMapAccess : uint
		{
			FileMapCopy = 0x0001,
			FileMapWrite = 0x0002,
			FileMapRead = 0x0004,
			FileMapAllAccess = 0x001f,
			fileMapExecute = 0x0020,
		}
 
		[DllImport("kernel32.dll", SetLastError=true)]
		static extern bool UnmapViewOfFile(IntPtr lpBaseAddress);
 
		[DllImport("kernel32.dll", SetLastError=true)]
		[return: MarshalAs(UnmanagedType.Bool)]
		static extern bool CloseHandle(IntPtr hObject);
 
		[DllImport("user32.dll", CharSet = CharSet.Auto, SetLastError = false)]
		static extern bool SendMessage(IntPtr hWnd, Int32 Msg, int wParam, int lParam);
 
 
		public IntPtr GetMircHandle(){
			Process p = Process.GetProcessesByName("mirc")[0];
			return p.Handle;
		}
 
		public MircMSG(){
			FileMapHandle = CreateFileMapping(new IntPtr(-1),IntPtr.Zero,FileMapProtection.PageReadWrite,0,1024,"mirc");
			FileMap = MapViewOfFile(FileMapHandle, FileMapAccess.FileMapWrite,0,0,1024);
		}
 
		public void Dispose(){
			if (!UnmapViewOfFile(FileMap)) throw new Exception(Marshal.GetLastWin32Error().ToString());
			if (!CloseHandle(FileMapHandle)) throw new Exception(Marshal.GetLastWin32Error().ToString());
		}
 
		public bool SendMircMessage(string command){
			Marshal.Copy(command.ToCharArray(),0,FileMap,command.Length);
			return SendMessage(GetMircHandle(),WM_MCOMMAND,1,0);
		}
	}
}

et la source en pascal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
unit mIRCMSG;
 
interface
 
uses Windows, SysUtils, Messages;
 
var
  FileMapHandle: HWND;
  FileMap: PChar;
  mIRCHandle: HWND;
 
procedure Init_mIRCMSG(mIRCHdl: HWND);
procedure Send_mIRCMSG(S: string);
function  Eval_mIRCMSG(S: string): string;
procedure Free_mIRCMSG;
 
implementation
 
 
procedure Init_mIRCMSG(mIRCHdl: HWND);
begin
  FileMapHandle:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,1024,'mIRC');
  FileMap:=Pointer(MapViewOfFile(FileMapHandle,FILE_MAP_WRITE,0,0,1024));
  mIRCHandle := mIRCHdl;
end;
 
procedure Send_mIRCMSG(S: string);
begin
  StrCopy(FileMap,PChar(S));
  SendMessage(mIRCHandle,WM_USER+200,1,0);
end;
 
function  Eval_mIRCMSG(S: string): string;
begin
  StrCopy(FileMap,PChar(S));
  SendMessage(mIRCHandle,WM_user+201,1,0);
  Result := Filemap;
end;
 
procedure Free_mIRCMSG;
Begin
  UnmapViewOfFile(FileMap);
  CloseHandle(FileMapHandle);
end;
 
end.

Merci d'avance