Useful links about freepascal in telegram etc
Please suggest us other links and lib usefull for telegram in FreePascal/Lazarus and FreePascal in telegram!
unit Unit1; | |
{$mode objfpc}{$H+} | |
interface | |
uses | |
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls; | |
type |
unit Unit1; | |
{$mode objfpc}{$H+} | |
interface | |
uses | |
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls; | |
type |
{$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: |
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'); |
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; |
unit tableentities; | |
{$mode objfpc}{$H+} | |
{$interfaces corba} | |
interface | |
uses | |
Classes, SysUtils, dSQLdbBroker, fgl, fpjson, dClasses, dSqlBuilder | |
; |
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 |
Useful links about freepascal in telegram etc
Please suggest us other links and lib usefull for telegram in FreePascal/Lazarus and FreePascal in telegram!