mercury13 / curl4delphi Goto Github PK

View Code? Open in Web Editor NEW

72.0 11.0 21.0 289 KB

A little libcURL binding for Delphi XE2+. Supports “easy” interface only. See wiki for more documentation.

Pascal 98.95% PHP 0.63% HTML 0.42%

libcurl curl-library delphi-xe network-protocols

curl4delphi's Introduction

About curl4delphi

curl4delphi is a simple Delphi XE2+ binding for libcURL.

My initial version supports “easy” interface only.

Note from developer

Version 0.3 “Tokyo” is out! It is much easier than 0.2.

Check it now, though you can face some incompatibilities with older versions. But I think they are easy to overcome, nothing was changed radically.

Quick start

Add files Curl.Lib, Curl.Easy, Curl.Interfaces to your project.
Write such a piece of code.

var
  curl : ICurl;

curl := CurlGet;
curl.SetUrl('http://example.com')
    .SetProxyFromIe
    .SetUserAgent(ChromeUserAgent)
    .SwitchRecvToString
    .Perform;
Writeln(curl.ResponseBody);

[To use streams for receiving, check EasyHttp\StreamedDl].

Examples

Misc\Version

Shows version

RawHttp\Readme

Basic HTTP GET, same as written above.

RawHttp\Simple, EasyHttp\Simple

Redirection, basic HTTP GET, GetInfo

RawHttp\Https, EasyHttp\Https

Redirection, basic HTTPS support, CA files, Unicode in file names.

Warning: download a CA file such as cacert.pem.

EasyHttp\StreamedDl

Downloading to Delphi TStream’s.

EasyHttp\FileDownloader

A GUI file downloader. This example is rather complex because of multithreading and Content-Disposition. We do as most browsers do: request headers, then start writing to temporary file and simultaneously ask where to save it on HDD.

Inter-thread communication, transfer function, quick-and-dirty header parsing.

RawHttp\AplusB_Post, EasyHttp\AplusB_Post

A simple form demo. Please copy php_curl directory to a PHP-capable web server.

Forms (one field is set in a simple way, the other in more complex one).

EasyHttp\PhotoInfo

File uploading: disk file (2 ways), memory buffer, stream.

ICurl cloning demo (not particularly good, it is more an illustration that Clone works).

Please copy php_curl directory to a PHP-capable web server.

EasyHttp\AplusB_Get

Using ICurlGetBuilder to build a GET URL. Please copy php_curl directory to a PHP-capable web server.

License

MIT for library, public domain for examples.

curl4delphi's People

Contributors

Stargazers

Watchers

Forkers

progray badboy3000 anomous chen-jianfu xam0482 hhd85 edwinyzh khongten001 cpsoftbe leeonsoft orxor atkins126 fgrcwp mkoyne maytsing herculesalex lhengen loop80 joaoduarte19 gitcnsh-dslin

curl4delphi's Issues

Check form errors

Extract string options into a separate enumerated type

I’m too lazy to identify a type of EVERYTHING. So I’ll do this at least for strings.

LONGs and OFFs are already extracted.

Simple: engines → cookies

License to md

Request proxy from IE

I've got some working C++ code, port it to Delphi.

Curl.Version unit

…to know cURL version converted into curl4delphi

TCurlSocket = TSocket

VCL demo — progress bar

Implement ICurlFormData and SetFormData

…wrapper for curl_formadd.

Remove my own packages from examples

Increase initial field size 1 → 10

Initial implementation of TEasyCurlImpl

Make TEasyCurlImpl do most basic things.

SwitchToString

Mimetype issues

Hi,
I have been using your library happily to use curl with delphi.
I ran into a few issues when using SMTP and attachments.

Function curl_mime_type. Your function requires a HCurlMime argument, but the curl function seems to need a HCurlMimeType argument.
For curl_easy_setopt I could not use a TCurlMimeOption. (CURLOPT_MIMEPOST). I needed to add an overloaded version of the function curl_easy_setopt.

Running a diff on your latest source of Curl.Lib.pas and my adjusted version I get this:

1760c1760
< function curl_mime_type(part : HCurlMime; mimetype : PAnsiChar) : TCurlCode;
---
> function curl_mime_type(part : HCurlMimePart; mimetype : PAnsiChar) : TCurlCode;
2616a2616,2620
> function curl_easy_setopt(
>         curl : HCurl;
> 		option : TCurlMimeOption;
> 		data : HCurlMime) : TCurlCode;  overload; inline;
> 
3062a3067,3074
> function curl_easy_setopt(
>         curl : HCurl;
> 		option : TCurlMimeOption;
> 		data : HCurlMime) : TCurlCode;
> begin
>   Result := curl_easy_setopt_initial(curl, option, NativeUInt(data));
>   end;
>

I wanted to let you know, it seems a good improvement to me to include this into your original.
Greetings, JP.

需要跳转的地址无法进行下载

http://127.0.0.1:1880/GetFile.asp?xh=1001,像这样的地址不支持跳转！

Basic multithread support

Not into initial release…

Implement custom headers

I need this for work

TCurlStreamFlags

csfAutoRewind, csfAutoDestroy

SetRecvStream to file

curl.SetRecvFile('file.out');

[DCC Fatal Error] Https.dpr(9): F2063 Could not compile used unit 'Curl.Lib.pas'

I try the https examble in curl4delphi-master\Examples\Easy_Http\Https
and give me this error and not compile the proyect
[DCC Error] Curl.Lib.pas(2803): E2441 Inline function declared in interface section must not use local symbol 'erroneous type'

i am using delphi XE

ICurl: implement setters for all slist options.

Mapping to curl equivalent options

Hello,
Can you help me about following command

curl -vs -H "Accept-Language: bg" -H "Accept: application/json" --user a@b:12345 https://app.prolet.org/steps-beta/clients/generic/import.do -X POST -d "source_post_code=1000" -d "target_post_code=6000" -d "weight=1" -d "paidOnDelivery=true" -d "printFormat=nil" -d "include_price=true" -o d:\l2.pdf

as post me some code of delphi for this parameters
-d
-o

Thanks in advance.
Nikolay Neykov

Add a json post request example

  curl := CurlGet;
  curl.SetUrl('https://empacser.now.sh/api/sync_proxy')
    .SetCustomHeaders(
      CurlGetSlist
        .AddRaw('Content-type: application/json')
        .AddRaw('Accept: */*')
    )
    .SetProxyFromIe
    .SetOpt(CURLOPT_POST, true)
    .SetOpt(CURLOPT_POSTFIELDS, TEncoding.UTF8.GetBytes('{"xyz": 10}'))
    .SetCaFile('curl-ca-bundle.crt')
    .SetUserAgent(ChromeUserAgent)
    .SwitchRecvToString
    .Perform;