paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 00:50:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add error check

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-09-28 10:14:18 +02:00
parent 99e449eaa1
commit bfe3afbc62
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/libcurl/examples/teststream.pp
View File

@ -44,7 +44,8 @@ begin
curl_easy_setopt(hCurl,CURLOPT_URL,[URL]); curl_easy_setopt(hCurl,CURLOPT_URL,[URL]);
curl_easy_setopt(hCurl,CURLOPT_WRITEFUNCTION,[@DoWrite]); curl_easy_setopt(hCurl,CURLOPT_WRITEFUNCTION,[@DoWrite]);
curl_easy_setopt(hCurl,CURLOPT_WRITEDATA,[Pointer(F)]); curl_easy_setopt(hCurl,CURLOPT_WRITEDATA,[Pointer(F)]);
curl_easy_perform(hCurl); if curl_easy_perform(hCurl)<>CURLE_OK then
Writeln(StdErr,'Failed to get URL');
curl_easy_cleanup(hCurl); curl_easy_cleanup(hCurl);
end; end;
Finally Finally