Exemplos de TCP/IP com Win32

[vailton]

Olá,.
Postei vários aplicativos completos com fontes no grupo do planeta harbour que demonstram como obter dados de um micro na rede remotamente e como efetuar um PING na rede utilizando as funções ICMP da Win32 API.

Os arquivos estão disponiveis para download no seguinte link:
https://pctoledo.org/forum/fileba ... t=c&page=1

Os arquivos originais, eu postei em:
http://br.groups.yahoo.com/group/planet ... n32%20API/

OBS: Compilados com Harbour 2.x e me parece que compila tb com xHB 1.2.1

[asimoes]

Olá VAilton,

O exemplo NetServerGetInfoApp apresentou o o erro abaixo na compilação:
a compilação foi feita com mingw.

usando: hbmk2 -gtcgi -run NetServerGetInfoApp.hbp

Código: Selecionar todos

Harbour 2.1.0rc1 (Rev. 16324)
Copyright (c) 1999-2011, http://harbour-project.org/
Compiling 'NetServerGetInfoApp.prg'...
Lines 275, Functions/Procedures 1
Generating C source output to 'C:\TEMP\hbmk_zjb4jj.dir\NetServerGetInfoApp.c'...
 Done.
NetServerGetInfoApp.prg: In function `GetServerInfo':
NetServerGetInfoApp.prg:120: warning: dereferencing type-punned pointer will bre
ak strict-aliasing rules
C:/TEMP/hbmk_zjb4jj.dir/NetServerGetInfoApp.o:NetServerGetInfoApp.c:(.text+0x14e
): undefined reference to `NetServerGetInfo@12'
C:/TEMP/hbmk_zjb4jj.dir/NetServerGetInfoApp.o:NetServerGetInfoApp.c:(.text+0x354
): undefined reference to `NetApiBufferFree@4'
collect2: ld returned 1 exit status
hbmk2: Erro: Executando linkeditor. 1
gcc.exe C:/TEMP/hbmk_zjb4jj.dir/NetServerGetInfoApp.o C:/TEMP/hbmk_zjb4jj.dir/hb
mk_n6xxg0.o  C:/TEMP/hbmk_zjb4jj.dir/hbmk_uvhn09.reso  -mconsole -Wl,--start-gro
up -lhbextern -lhbdebug -lhbvm -lhbrtl -lhblang -lhbcpage -lgtcgi -lgtpca -lgtst
d -lgtwin -lgtwvt -lgtgui -lhbrdd -lhbuddall -lhbusrrdd -lrddntx -lrddcdx -lrddn
sx -lrddfpt -lhbrdd -lhbhsx -lhbsix -lhbmacro -lhbcplr -lhbpp -lhbcommon -lhbmai
nstd -lkernel32 -luser32 -lgdi32 -ladvapi32 -lws2_32 -lwinspool -lcomctl32 -lcom
dlg32 -lshell32 -luuid -lole32 -loleaut32 -lmpr -lwinmm -lmapi32 -limm32 -lmsimg
32 -lwininet -lhbpcre -lhbzlib  -Wl,--end-group -oNetServerGetInfoApp.exe  -Ld:/
harbourx/mingw/lib -Ld:/harbourx/mingw/bin
Pressione qualquer tecla para continuar. . .