Skip to content

Instantly share code, notes, and snippets.

@Al-Muhandis
Al-Muhandis / imageswebutils.pas
Last active Jul 24, 2018
Разбивка изображения. FreePascal
View imageswebutils.pas
unit imageswebutils;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FPimage, FPImgCanv, fgl;
type
@Al-Muhandis
Al-Muhandis / freepascal-telegram-links.md
Created Feb 5, 2018
Useful links about freepascal in telegram and telegram in freepascal (and Lazarus IDE)
View freepascal-telegram-links.md
@Al-Muhandis
Al-Muhandis / InstagramScrapper.pas
Last active Nov 2, 2018
The piece of code for parsing timeless stories to my instagram [FreePascal language]
View InstagramScrapper.pas
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
@Al-Muhandis
Al-Muhandis / taskworker.pas
Last active Mar 11, 2019
Worker thread template class with task queue (FIFO) without third-party components. FreePascal
View taskworker.pas
unit taskworker;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
type
View tableebtities.pas
unit tableentities;
{$mode objfpc}{$H+}
{$interfaces corba}
interface
uses
Classes, SysUtils, dSQLdbBroker, fgl, fpjson, dClasses, dSqlBuilder
;
@Al-Muhandis
Al-Muhandis / blcksock.pas
Last active Feb 15, 2020
Hack in blcksock.pas (laz_synapse.lpk 40.1)
View blcksock.pas
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;
View CSV.pas
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');
View dorpunycode.pas
{$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:
@Al-Muhandis
Al-Muhandis / cbrvalutes.pas
Last active Sep 5, 2020
Парсер валют (Центробанк РФ)
View cbrvalutes.pas
unit sbrvalutes;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, fgl
;
View Unit1.pas
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type