FILEMAP, ayuda visual basic 6
Buenas Tardes:
Necsito comunicar un SCADA y un aplicacion realizada en Visual Basic 6. Actualmente se pueden comunicar usando un filmaping, pero debo reemplzar ese filemaping.
Ando buscando alguien que me ayude a hacer este nuevo filemaping y tenga conocimientos en visaual Basic. (E filemaping esta hecho en c , creo)
Estoy dispuesto a pagar por este servicio. Favor d econtactarme por
no colocar datos personales. Contactar por MP./* **********************************************************************************
*
*
*
*
*
*
*
***********************************************************************************/
# include <windows.h>
# include "SimcotMap.h"
# include <stdio.h>
HANDLE hFileMap;
TipoValores *hValor;
/* ***************************************************************************
*
*
*
*
*****************************************************************************/
long _declspec(dllexport) _stdcall AbrirMapFile ()
{
long ErrorCode;
char NomFitxer[50]="DbsMap";
/* Creamos el "file mapping"
*/
hFileMap = CreateFileMapping ( (HANDLE) 0xFFFFFFFF,
(LPSECURITY_ATTRIBUTES) NULL,
PAGE_READWRITE,
0,
sizeof(TipoValores),
NomFitxer);
if (hFileMap == NULL ) ErrorCode = GetLastError ();
else
{
/* Nos mapeamos el fichero
*/
hValor = (TipoValores *) MapViewOfFile (
hFileMap,
FILE_MAP_READ | FILE_MAP_WRITE,
0,0,0);
if (hValor == NULL) ErrorCode = GetLastError ();
else
{
ErrorCode = NO_ERROR;
}
}
return (ErrorCode);
}
/* ***************************************************************************
*
*
*
*
*****************************************************************************/
long _declspec(dllexport) _stdcall CerrarMapFile ()
{
FlushViewOfFile( hValor,66);
UnmapViewOfFile( hValor);
CloseHandle (hFileMap);
return NO_ERROR;
}
/* ***************************************************************************
*
*
*
*
*****************************************************************************/
long _declspec(dllexport) _stdcall EscMapInt (short Idx, long Valor)
{
hValor->Entero[Idx] = Valor;
return NO_ERROR;
}
/* ***************************************************************************
*
*
*
*
*****************************************************************************/
long _declspec(dllexport) _stdcall LeerMapInt (short Idx)
{
long Valor;
Valor = hValor->Entero[Idx];
return Valor;
}