FILEMAP, ayuda visual basic 6

[pmoren]

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.

Código [Seleccionar] Expandir

/* **********************************************************************************
*
*
*
*
*
*
*
***********************************************************************************/

# 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;
}