Beranda>Terkait pemrograman>Kode sumber Delphi
Unduh

libpascurl

Ini adalah delphi dan objek binding pascal dan pembungkus di sekitar perpustakaan curl. Libcurl adalah perpustakaan yang digunakan untuk mentransfer data yang ditentukan dengan sintaks URL, mendukung HTTP, HTTPS, FTP, FTP, Gopher, TFTP, SCP, SFTP, SMB, Telnet, Dict, LDAP, LDAPS, File, IMAP, SMTP, POP3, RTSP.

Daftar isi

  • Requierements
  • Instalasi
  • Penggunaan
  • Contoh
  • Binding
    • Contoh Penggunaan
  • Pembungkus objek
    • Fungsi dasar
    • Modul properti
      • Modul sesi
      • Modul respons
    • Http
      • Modul sesi
      • Modul respons
      • Contoh Penggunaan

Persyaratan

  • EMBARCADERO (R) RAD Studio
  • Kompiler Pascal GRATIS
  • Lazarus IDE (opsional)

Perpustakaan diuji

  • Embarcadero (R) Delphi 10.3 di Windows 7 Service Pack 1 (Versi 6.1, Build 7601, edisi 64-bit)
  • Freepascal Compiler (3.2.0) dan Lazarus IDE (2.0.10) di Ubuntu Linux 5.8.0-33-Generic X86_64
  • Lazarus 2.2rc2 dan Curl terbaru dari Brew Package Manager di MacOS (oleh Björn Lindh)

Instalasi

Dapatkan sumber dan tambahkan direktori sumber ke jalur pencarian proyek. Untuk FPC, tambahkan direktori sumber ke file fpc.cfg .

Penggunaan

Kloning git clone https://github.com/isemenkov/libpascurl .

Tambahkan unit yang ingin Anda gunakan ke klausa uses .

Contoh

  1. RemoteConnectcstyle Contoh Sederhana Untuk Gunakan Wrapper Curl dalam C-Style Untuk Terhubung ke Host Jarak Jauh.
  2. Contoh RemoteConnect Cara menggunakan curl.http.session.tsession dan curl.http.response.tresponse kelas untuk terhubung ke host jarak jauh.

Binding

File libpascurl.pas berisi header yang diterjemahkan CURL untuk menggunakan pustaka ini dalam program Pascal. Anda dapat menemukan dokumentasi C API di situs web Curl.

Contoh Penggunaan 

  uses
    libpascurl;

  var
    handle : CURL;
    effectiveUrl, contentType, ip : PChar;
    responseCode, headerSize : Longint;
    contentLength, totalTime : Longword;
    buffer : TStringStream;

  function WriteFunctionCallback (ptr : PChar; size : LongWord;
    nmemb : LongWord; data : Pointer)
  begin
    buffer.WriteString(string(ptr)); 
  end ;

  begin
    curl_global_init(CURL_GLOBAL_ALL);
    curl_easy_setopt(handle, CURLOPT_URL, PChar( ' https://example.dev ' );
    curl_easy_setopt(handle, CURLOPT_WRITEFUNCTION, @WriteFunctionCallback);
    buffer := TStringStream.Create( ' ' );

    if curl_easy_perform = CURLE_OK then
    begin
      New(effectiveUrl);
      New(contentType);
      New(ip);
  
      curl_easy_getinfo(handle, CURLINFO_EFFECTIVE_URL, @effectiveUrl);
      curl_easy_getinfo(handle, CURLINFO_RESPONSE_CODE, @responseCode);
      curl_easy_getinfo(handle, CURLINFO_HEADER_SIZE, @headerSize);
      curl_easy_getinfo(handle, CURLINFO_CONTENT_TYPE, @contentType);
      curl_easy_getinfo(handle, CURLINFO_CONTENT_LENGTH_DOWNLOAD_T, @contentLength);
      curl_easy_getinfo(handle, CURLINFO_LOCAL_IP, @ip);
      curl_easy_getinfo(handle, CURLINFO_TOTAL_TIME_T, @totalTime);

      writeln( ' URL: ' : 20 ,                 effectiveUrl);
      writeln( ' Response code: ' : 20 ,       responseCode);
      writeln( ' Header size, kB: ' : 20 ,     FormatFloat( ' 0.00 ' , headerSize / 1024 ));
      writeln( ' Content type: ' ,           contentType);
      writeln( ' Content length, kB: ' : 20 ,  FormatFloat( ' 0.00 ' , contentLength / 1024 ));
      writeln( ' IP: ' : 20 ,                  ip);
      writeln( ' Total time, ms: ' : 20 ,      totalTime);
      writeln( ' ==== Content ==== ' );
      writeln(buffer.DataString);
    end ;

    curl_global_cleanup; 

  end ;

Pembungkus objek

Fungsi dasar

Perpustakaan berisi satu set kelas untuk membuat pembungkus tingkat tinggi di sekitar protokol yang didukung. source/curl/ folder berisi komponen dasar yang mengimplementasikan fungsionalitas spesifik.

Kelas Keterangan
Tcurleasy Ini adalah kelas dasar yang menginisialisasi pustaka curl dan menyediakan fungsi penanganan kesalahan.
Tsession Ini adalah kelas orang tua untuk sesi semua protokol yang didukung. Ini menyediakan TMemoryBuffer untuk tersimpan data pengunduhan/pengunggahan.
Kesepakatan Ini adalah kelas induk untuk data respons server.
Tpropertymodule Ini adalah kelas dasar untuk semua sesi dan respons modul fungsionalitas tambahan.

Modul properti

Modul sesi
Kelas Modul Keterangan
Tmoduledns Kelas menyediakan properti untuk mengatur opsi DNS libcurl.
Tmodulerequest Kelas menyediakan properti untuk mengatur properti permintaan dan panggilan balik.
TModuleHeader Kelas menyediakan properti untuk mengatur header. Dapat digunakan hanya dengan protokol seperti HTTP - HTTP (S), FTP (S), POP3 (S), IMAP, SMTP.
TModuleOptions Kelas menyediakan properti untuk mengatur opsi internal libcurl yang berbeda.
Tmoduleprotocols Kelas menyediakan properti untuk mengatur opsi protokol libcurl.
Tmodulesocket Kelas menyediakan properti untuk pengaturan soket.
Tmoduletcp Kelas menyediakan properti untuk mengatur opsi protokol TCP.
TModuleWriter Kelas menyediakan properti untuk mengatur fungsi callback unduh.
Tmodulereader Kelas menyediakan properti untuk mengatur fungsi callback unggah.
TmoduleAuth Kelas menyediakan properti untuk mengatur opsi auth.
Tmoduletlsauth Kelas menyediakan properti untuk mengatur opsi otentikasi TLS AUTH.
Tmoduleproxy Kelas menyediakan properti untuk mengatur opsi proxy.
Tmodulesock5 Kelas menyediakan properti untuk mengatur opsi proxy sock5.
Modul respons
Kelas Modul Keterangan
TModulecontent Kelas menyediakan properti untuk mendapatkan buffer data konten.
TModuleHeader Kelas memberikan properti untuk header respons. Dapat digunakan hanya dengan protokol seperti HTTP - HTTP (S), FTP (S), POP3 (S), IMAP, SMTP.
Tmoduleredirect Kelas memberikan informasi tentang pengalihan permintaan.
Tmodulespeed Kelas menyediakan informasi pengunduhan/unggah kecepatan.
Tmoduletimeout Kelas memberikan informasi waktu tunggu.
TmoduleInfo Kelas memberikan informasi sesi.

Http

Kelas THTTPSESSION dan THTTPRESPONSE mengimplementasikan pembungkus tentang protokol HTTP (S). Kelas -kelas ini memperluas fungsionalitas kelas dasar dan memberikan yang baru yang hanya spesifik untuk protokol ini.

Pembungkus ini digunakan atau memperluas modul utama berikutnya:

Modul sesi Modul respons
✔️ Tmoduledns ✔️ Tmodulecontent
✔️ TmoduleHeader ✔️ TmoduleHeader
✔️ TmoduleOptions ✔️ Tmoduleredirect
✔️ Tmoduleprotocols ✔️ Tmodulespeed
✔️ Tmodulesocket ✔️ Tmoduletimeout
✔️ Tmoduletcp ✔️ TmoduleInfo
✔️ Tmodulewriter
✔️ Tmodulereader
✔️ TmoduleRequest
✔️ TmoduleAuth
✔️ TmoduletlsAuth
✔️ Tmoduleproxy
✔️ Tmodulesock5
Modul sesi
Kelas Modul Keterangan
Tmoduleredirect Kelas menyediakan properti untuk mengatur opsi pengalihan http (s).
Tmodulehttp2 Kelas menyediakan properti untuk mengatur opsi protokol HTTP/2.
Tmoduletimeout Kelas menyediakan properti untuk mengatur opsi batas waktu protokol http (s).
Modul respons
Kelas Modul Keterangan
TmoduleCookie Kelas menyediakan data cookie.

Contoh Penggunaan 

 uses 
  curl.http.session, curl.http.response;
  
var
  Session : THTTP.TSession;
  Response : THHTP.TResponse;

begin
  Session.Url := ' https://github.com/isemenkov ' ;
  Session.Redirect.FollowRedirect := True;
  
  Response := Session.Get;
  
  writeln( ' Url ' , Response.Request.Url);
  writeln( ' Response code ' , Response.Header.ResponseCode);
  writeln( ' Content-type ' , Response.Content.ContentType);
  writeln( ' Content-size ' , Response.Content.ContentSize);
  writeln( ' Content ' , Response.Content.ToString);
end ;
Memperluas
Informasi Tambahan
Aplikasi Terkait
Direkomendasikan untuk Anda
Informasi Terkait Semua