... sBuffer:=sBuffer+Alltrim(oTxt:readline())+chr(13)+chr(10) otxt:Skip() Next oTxt:END() xError :=LoadLib32("Kernel32.dll") xdllnet:=LoadLib32("WinINet.Dll") hOpen:=InternetOpen("Sysfar", INTERNET_OPEN_TYPE_DIRECT,"","",0) if (hConect:=InternetConnect(hOpen,"https://200.214.130.41:9443/farmaciahomologa/services/ServicoSolicitacaoWS"; ...