Код: Выделить всё
PROGRAM
MAP
MODULE('Curl API')
curl_easy_init(),LONG,RAW,PASCAL
curl_easy_setopt(LONG Handle, LONG Option, LONG PointerToStructure),LONG,PROC,RAW,PASCAL
curl_easy_cleanup(LONG Handle),LONG,PROC,RAW,PASCAL
curl_easy_strerror(LONG CURLCode),*CSTRING,RAW,PASCAL
END
END
CURLOPT_URL EQUATE(10002)
Curl LONG
Url CSTRING(256)
CODE
Curl = curl_easy_init()
IF Curl
Url = 'http://www.aport.ru'
CURLCode# = curl_easy_setopt(Curl,CURLOPT_URL,ADDRESS(Url))
IF CURLCode# THEN MESSAGE(curl_easy_strerror(CURLCode#)) END
! ...
! и т.д.
END
curl_easy_cleanup(Curl)