A very common scenario when doing interfaces with other applications, is to have a directory where one application places files, and the other one picks those up and processes them.
Let’s say some application want to interface with Dynamics AX, one way, from that application to AX. That application will drop files of a specific format, say *.txt, in a directory. You’ll want to have a batch job in AX that checks that directory every 5 minutes for those files. When your batch job finds those files, it will open them and do something with that data, then move them to an other directory, so you don’t process them twice.
Let’s say some application want to interface with Dynamics AX, one way, from that application to AX. That application will drop files of a specific format, say *.txt, in a directory. You’ll want to have a batch job in AX that checks that directory every 5 minutes for those files. When your batch job finds those files, it will open them and do something with that data, then move them to an other directory, so you don’t process them twice.
Now the first thing you’ll probably think of (well, I did…), is to use the class WinAPI. This class has some useful static methods for checking if folders or files exist, finding files with a filename of a certain format. Just the kind of thing we’re looking for. Your code might look like this:
static void loopfilesWinApi(Args _args)
{
str fileName;
int handle;
str format = "*.txt";
;
if(WinApi::folderExists("C:\\Temp\\"))
{
[handle,fileName] = WinApi::findFirstFile("C:\\Temp\\" + format);
while(fileName)
{
//currentfileName = fileName;
info(filename);
filename = WinApi::findNextFile(handle);
}
WinApi::closeHandle(handle);
}
}
{
str fileName;
int handle;
str format = "*.txt";
;
if(WinApi::folderExists("C:\\Temp\\"))
{
[handle,fileName] = WinApi::findFirstFile("C:\\Temp\\" + format);
while(fileName)
{
//currentfileName = fileName;
info(filename);
filename = WinApi::findNextFile(handle);
}
WinApi::closeHandle(handle);
}
}
That’s perfect. It checks a directory, in this cas C:\temp, for files with the extension txt… until you try to run this in batch. Your batch will have the status error, and there will be an entry in the event log saying:
RPC error: RPC exception 1702 occurred in session xxx
That error message is very misleading, but Florian Dittgen has a nice blog entry about this, that explains why this goes wrong: WinAPI methods a static and run on client. In batch, you can not use these client methods.
But hey! There is a class called WinAPIServer, surely this runs on server, right? Correct, but a lot of the methods available in WinAPI are missing in WinAPIServer. You can however extend the WinAPI server class by copying methods from the WinAPI class and modifying them a bit. Let’s try that.
But hey! There is a class called WinAPIServer, surely this runs on server, right? Correct, but a lot of the methods available in WinAPI are missing in WinAPIServer. You can however extend the WinAPI server class by copying methods from the WinAPI class and modifying them a bit. Let’s try that.
This is what the WinAPI::FindFirstFile() method looks like:
client static container findFirstFile(str filename)
{
Binary data = new Binary(592); // size of WIN32_FIND_DATA when sizeof(TCHAR)==2
DLL _winApiDLL = new DLL(#KernelDLL);
DLLFunction _findFirstFile = new DLLFunction(_winApiDLL, 'FindFirstFileW');
_findFirstFile.returns(ExtTypes::DWord);
_findFirstFile.arg(ExtTypes::WString,ExtTypes::Pointer);
return [_findFirstFile.call(filename, data),data.wString(#offset44)];
}
{
Binary data = new Binary(592); // size of WIN32_FIND_DATA when sizeof(TCHAR)==2
DLL _winApiDLL = new DLL(#KernelDLL);
DLLFunction _findFirstFile = new DLLFunction(_winApiDLL, 'FindFirstFileW');
_findFirstFile.returns(ExtTypes::DWord);
_findFirstFile.arg(ExtTypes::WString,ExtTypes::Pointer);
return [_findFirstFile.call(filename, data),data.wString(#offset44)];
}
As you can see, this method uses the function FindFirstFileW from the Kernel32 dll located in the folder C:\WINDOWS\system32. Let’s copy this method to WinAPIServer and modify it to look like this:
server static container findFirstFile(str filename)
{
#define.KernelDLL('KERNEL32')
#define.offset44(44)
InteropPermission interopPerm;
Binary data;
DLL _winApiDLL;
DLLFunction _findFirstFile;
;
interopPerm = new InteropPermission(InteropKind::DllInterop);
interopPerm.assert();
data = new Binary(592); // size of WIN32_FIND_DATA when sizeof(TCHAR)==2
_winApiDLL = new DLL(#KernelDLL);
_findFirstFile = new DLLFunction(_winApiDLL, 'FindFirstFileW');
_findFirstFile.returns(ExtTypes::DWord);
_findFirstFile.arg(ExtTypes::WString,ExtTypes::Pointer);
return [_findFirstFile.call(filename, data),data.wString(#offset44)];
}
{
#define.KernelDLL('KERNEL32')
#define.offset44(44)
InteropPermission interopPerm;
Binary data;
DLL _winApiDLL;
DLLFunction _findFirstFile;
;
interopPerm = new InteropPermission(InteropKind::DllInterop);
interopPerm.assert();
data = new Binary(592); // size of WIN32_FIND_DATA when sizeof(TCHAR)==2
_winApiDLL = new DLL(#KernelDLL);
_findFirstFile = new DLLFunction(_winApiDLL, 'FindFirstFileW');
_findFirstFile.returns(ExtTypes::DWord);
_findFirstFile.arg(ExtTypes::WString,ExtTypes::Pointer);
return [_findFirstFile.call(filename, data),data.wString(#offset44)];
}
Three things have changed here:
- “Client” has been change to “Server” so it can run on server;
- The code has been changed to use the InteropPermission class; this is required because the code runs on server;
- Initialization of the variables is moved to after assertion of the InteropPermission.
When you test this in batch (running on server), this will work, and you can do this for all WinAPI methods in the examples above… until you try this on a x64 architecture. You’ll receive a message saying that an error occurred when calling the FindFirstFileW function in the Kernel32 DLL (the exact message slipped my mind).
The problem is described on the Axapta Programming Newsgroup. You can code your way around this problem, but I think the message is clear: don’t use WinAPI.
The problem is described on the Axapta Programming Newsgroup. You can code your way around this problem, but I think the message is clear: don’t use WinAPI.
Instead, use the .NET Framework System.IO namespace (watch out for lowercase/uppercase here), in our case in specific, System.IO.File and System.IO.Directory.
I get this nice code example from Greg Pierce’s blog (modified it a bit):
I get this nice code example from Greg Pierce’s blog (modified it a bit):
static void loopfilesSystemIO(Args _args)
{
// loop all files that fit the required format
str fileName;
InteropPermission interopPerm;
System.Array files;
int i, j;
container fList;
;
interopPerm = new InteropPermission(InteropKind::ClrInterop);
interopPerm.assert();
files = System.IO.Directory::GetFiles(@"C:\temp", "*.txt");
for( i=0; i<ClrInterop::getAnyTypeForObject(files.get_Length()); i++ )
{
fList = conins(fList, conlen(fList)+1, ClrInterop::getAnyTypeForObject(files.GetValue(i)));
}
for(j=1;j<= conlen(fList); j++)
{
fileName = conpeek(fList, j);
info(fileName);
}
}
{
// loop all files that fit the required format
str fileName;
InteropPermission interopPerm;
System.Array files;
int i, j;
container fList;
;
interopPerm = new InteropPermission(InteropKind::ClrInterop);
interopPerm.assert();
files = System.IO.Directory::GetFiles(@"C:\temp", "*.txt");
for( i=0; i<ClrInterop::getAnyTypeForObject(files.get_Length()); i++ )
{
fList = conins(fList, conlen(fList)+1, ClrInterop::getAnyTypeForObject(files.GetValue(i)));
}
for(j=1;j<= conlen(fList); j++)
{
fileName = conpeek(fList, j);
info(fileName);
}
}
This will run on client and on server without any problems. To have clean code, you could create your own class, just like WinAPI, but using the System.IO namespace. That way, you can reuse this code and save time.
Conclusion: abandon WinAPI, and use System.IO instead.
Aucun commentaire:
Enregistrer un commentaire