Añade esto:

... FROM "CreateFileA" LIB "Kernel32.dll"

Gracias por la respuesta, pero porque la A final al nombre de la funcion en FROM?

En el fichero winbase.h de Windows encontramos:

ifdef UNICODE

define CreateFile CreateFileW

else

define CreateFile CreateFileA

endif // !UNICODE

Es decir, la función CreateFile se transforma en CreateFileA ó CreateFileW según se esté usando ó no unicode.

Por eso tenemos que indicarle a DLL FUNCTION ... que queremos usar CreatetFileA

Gracias Antonio, segui tu consejo y algo cambio, ya no regresa nil pero me da un error que sinceramente no entiendo que es, genera un archivo hb_out.log con el siguiente contenido:

Application Exception - C:\CEM-44\CEM44PIPES.EXE
Terminated at: 2017.01.13 16:46:07

Exception Code:C0000005
Exception Address:00000000
EAX:00503290  EBX:00000000  ECX:FFFFFFFF  EDX:00000007
ESI:00000000  EDI:00AC76F8 EBP:00000000
CS:EIP:001B:00000000  SS:ESP:0023:0012F2EC
DS:0023  ES:0023  FS:003B  GS:0000
Flags:00010212
CS:EIP:
SS:ESP: 0012F3F0 004406C2 00000008 00AC7578 00000000 00494578 0012F37C 00000000 00000000 00000000 001A0018 7FFDFC00 00000000 006B0000 0012F358 00AC7638

C stack:
EIP:     EBP:       Frame: OldEBP, RetAddr, Params...

Estoy probando mi aplicacion en la misma pc donde existe el pipe para evitar otros errores externos y estas son las lineas que ejecuta:

lpszPipename := "\.\pipe\CEM44POSPIPE"
hPipe := 0
hPipe := CreateFile(lpszPipename)

Gracias
Jorge Jaurena

Jorge,

Por qué le pasas un sólo parámetro a la función CreateFile() ?

Tienes que enviarle todos los parámetros

Probe enviando solo el nombre del pipe asumiendo que el resto los pondria la funcion por default al no recibirlos, la intencion era minimizar errores mios pero quizas necesite que los pase, voy a probar pasandolos todos. Gracias

Jorge Jaurena

Antonio, buen dia. Segui tu consejo de pasarle todos los parametros pero me sigue dando el mismo error, sinceramente no tengo demasiado tiempo para esto por eso mi pregunta es la siguiente: ¿la nueva version de FWH trae alguna clase que me facilite el uso de pipe? Gracias.

Jorge,

Que parámetros le has pasado ?

Copia aqui tu código para poder probarlo, gracias

hace unos 8 años en mi trabajo, en ese momento, habiamos necesitado utilizar las PIPE porque
la aplicación que estaba siendo utilizada para sistemas de expendedores de combustible asi lo requeria.
estuve aproximadamente 7 meses intentando que eso funcione, pude generarla y enviar información
pero mas que eso no se pudo. no pudimos hacer andar que le enviemos información a la pipe
y que nos responda. el ida / vuelta no nos funcionó.

creo que despues (ya no estoy mas en esa empresa) cambiaron de lenguaje de programacion.

no tengo ningun fuente de lo que pudimos hacer con las pipes.

gracias.

Antonio, buen dia, te paso lo que estoy ejecutando.
Le estoy pasando todos los parametros basandome en el ejemplo que hay en el msdn.

Function VerTareas()
Local hPipe,lpszWrite,chReadBuf[512],fSuccess,cbRead,dwMode,lpszPipename,Ret

oTimer:DeActivate()

lpszWrite := "Default message from client"
lpszPipename := "\.\pipe\CEM44POSPIPE"
hPipe := 0

hPipe := CreateFile(lpszPipename, "GENERIC_READ | GENERIC_WRITE", 0, "", "OPEN_EXISTING", 0, "")
* MsgInfo(hPipe,"Handle retornado")

oTimer:Activate()
Return nil

A continuacion te paso como estoy definiendo la funcion, basandome en el msdn de microsft.

DLL32 FUNCTION CreateFile(lpFileName AS STRING, dwDesiredAccess AS LONG, dwShareMode AS LONG, lpSecurityAttributes AS LONG,;
dwCreationDisposition AS LONG, dwFlagsAndAttributes AS LONG, hTemplateFile AS LONG) AS LONG;
FROM "CreateFileA" LIB "Kernel32.dll"

Gracias
Jorge Jaurena

Jorge,

En vez de "GENERIC_READ | GENERIC_WRITE" tienes que usar nOr( GENERIC_READ, GENERIC_WRITE )

Los parámetros que tienes definidos como LONG tienen que ser números y no cadenas.

Busca esos defines en los ficheros de cabecera del compilador de C

Lo mismo para "OPEN_EXISTING". Debe ser un número.