Useful links about freepascal in telegram etc
Please suggest us other links and lib usefull for telegram in FreePascal/Lazarus and FreePascal in telegram!
Useful links about freepascal in telegram etc
Please suggest us other links and lib usefull for telegram in FreePascal/Lazarus and FreePascal in telegram!
#user 'sampleuser' virtual host 'telegramapi.sample.com' configuration file | |
server { | |
server_name telegramapi.sample.com www.telegramapi.sample.com; | |
... ... ... | |
location / { | |
proxy_set_header Host api.telegram.org; | |
proxy_pass https://api.telegram.org; | |
proxy_set_header X-Forwarded-Host $host; | |
proxy_set_header X-Forwarded-Server $host; | |
proxy_set_header X-Forwarded-For $proxy_add_x_forwarded_for; |
unit imageswebutils; | |
{$mode objfpc}{$H+} | |
interface | |
uses | |
Classes, SysUtils, FPimage, FPImgCanv, fgl; | |
type |
const | |
QryHash_HLStoriesIDs = '7c16654f22c819fb63d1183034a5162f'; | |
QryHash_HLStories1 = '45246d3fe16ccc6577e0bd297a5db1ab'; | |
{ ... ... ... } | |
function TInstagramParser.getHLStoriesForUser_internal(AUserID: Int64): Tjson_HLStories; | |
var | |
variables: TJSONObject; | |
HLIds, HL_reels: TJSONArray; | |
edge: TJSONEnum; | |
begin |
unit taskworker; | |
{$mode objfpc}{$H+} | |
interface | |
uses | |
Classes, SysUtils; | |
type |
unit tableentities; | |
{$mode objfpc}{$H+} | |
{$interfaces corba} | |
interface | |
uses | |
Classes, SysUtils, dSQLdbBroker, fgl, fpjson, dClasses, dSqlBuilder | |
; |
procedure TTCPBlockSocket.HTTPTunnelDoConnect(IP, Port: string); | |
//bugfixed by Mike Green (mgreen@emixode.com) | |
var | |
s: string; | |
begin | |
//Port := IntToStr(ResolvePort(Port)); | |
inherited Connect(FHTTPTunnelIP, FHTTPTunnelPort); | |
if FLastError <> 0 then | |
Exit; | |
FHTTPTunnel := False; |
procedure TForm1.FormCreate(Sender: TObject); | |
begin | |
InitiateMRating; | |
SdfDtStCountries.FieldDefs.Add('id', ftInteger, 2); | |
SdfDtStCountries.Schema.Add('id'); | |
SdfDtStCountries.FieldDefs.Add('iso', ftString, 2); | |
SdfDtStCountries.Schema.Add('iso'); | |
SdfDtStCountries.FieldDefs.Add('continent', ftString, 2); | |
SdfDtStCountries.Schema.Add('continent'); |
{$mode Delphi} | |
(* | |
* punycode.c from RFC 3492prop | |
* http://www.nicemice.net/idn/ | |
* Adam M. Costello | |
* http://www.nicemice.net/amc/ | |
* | |
* This is ANSI C code (C89) implementing Punycode (RFC 3492prop). | |
* Delphi Conversion by: |
unit sbrvalutes; | |
{$mode objfpc}{$H+} | |
interface | |
uses | |
Classes, SysUtils, fgl | |
; |