Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Universal Share Downloader / USD (часть 1)

Модерирует : gyra, Maz

gyra (06-12-2016 10:10): Universal Share Downloader (USD)  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

Alex_Qwerty

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
  //Обратная функция (через нее основная программа возвращает строки,
  //полученные в GET и POST. Чтобы точно не было проблем с памятью)
  TPlgCallBack=procedure(const AText: PChar); stdcall;
  //Выполняет запрос GET
  TURLGet = procedure (const URL: PChar; const CallBack: TPlgCallBack); stdcall;
 
  THTTPHead = procedure (const URL: PChar; const CallBack: TPlgCallBack); stdcall;
 
 
  //Выполняет запрос POST, Второй параметр - данные передаваемые в запросе
  //В формате: имя_поля1=значения_поля1 #10 имя_поля2=значения_поля2 и тд
  TURLPost = procedure (const URL, Data: PChar; const CallBack: TPlgCallBack); stdcall;
 
  TSetRetResult=procedure(const AText: PChar); stdcall;
  //Сохраняет в лог файл текст
  TSaveToLog = procedure (const AText: PChar); stdcall;
  //Показывает сообщение (чтобы не подключать Dialogs)
  TShowMsg = function (const AText: PChar; const mode: Byte): Integer; stdcall; //0 - info, 1 - confirmation, 2 - Error
  //Сохраняет любые данные в файл. Для отладки и дебага
  TSaveToFile = procedure (const AName, AContent: PChar); stdcall;
  //Позволяет получить адрес других процедур. Список будет пополнятся по мере надобности
  //Пока есть 2 функции - ShowMsg (TShowMsg) и WaitTime (TWaitTime = procedure (const SecondsForWait: Longword))
  //Если функции с таким именем нет - возвращает nil
  TGetFuncAddr = function (const AFuncName: PChar): Pointer; stdcall;
 
  TWaitTime = procedure (const SecondsForWait: Longword); stdcall;
  TSetReferer = procedure (const AString: PChar); stdcall;
  TGetHeaders = procedure(const CallBack: TPlgCallBack); stdcall;
  TShowHAWindow = procedure (const fn: PChar; const DTicket: Integer; const CallBack: TPlgCallBack); stdcall;
  TGetPicSize = procedure (const fn: PChar; const CallBack: TPlgCallBack); stdcall;
  TGetOption = procedure (const Plugin, Option, DefVal: PChar; const CallBack: TPlgCallBack); stdcall;
  TSetOption = procedure (const Plugin, Option, Value: PChar); stdcall;
  TSimpleOptions = procedure (const OptionScript: PChar; const CallBack: TPlgCallBack); stdcall;
TSetCookie = procedure (const AString: PChar; const mode: byte); stdcall;
TGetCookie = procedure (const CallBack: TPlgCallBack); stdcall;
TGetLocation = procedure (const CallBack: TPlgCallBack); stdcall;
TRelocationMode = procedure (const Mode: Byte); stdcall;
TGetClipboard = procedure (const CallBack: TPlgCallBack); stdcall;
TSetStatus = procedure (const Status: PChar); stdcall;
TGetLangDef = procedure (const Plugin, Name, Def: PChar;const CallBack: TPlgCallBack); stdcall;
TAddQuery = procedure (const url: PChar); stdcall;
TModQuery = procedure (const url: PChar); stdcall;
 
TGetVersion = function(): Word; stdcall;
TProgStatus = function(): Byte; stdcall;
 
{
Undeclared identifier: 'TDArray'
TGifToArr = procedure (const fn: PChar; var Arr: TDArray; const Width, Height: Integer; const Frame: Integer); stdcall;
TPicToArr = procedure (const fn: PChar; var Arr: TDArray; const Width, Height: Integer); stdcall;
TArrToPic = procedure (const fn: PChar; var Arr: TDArray; const Width, Height: Integer); stdcall;
TResizePic = procedure (var Arr1, Arr2: TDArray; const Width, Height, newWidth, NewHeight: Integer); stdcall;
TRotatePic = procedure (var SourArr, DestArr: TDArray; const Center : TPoint; const Angle: Double; const bgR, bgG, bgB: Byte); stdcall;
TCleanUp = procedure (var Arr: TDArray; const Width, Height: Integer); stdcall;
TOCRLoadBase = procedure (const BaseFile: PChar); stdcall;
TOCRUnloadBase = procedure ; stdcall;
TOCRRecognizeChar = procedure (const Arr: TDArray; const Level, Width, Height: Integer; const funcRetResult: Pointer); stdcall;
TOCRRecognizeChars = procedure (const Arr: TDArray; const Level, Spaces, Dots, Width, Height: Integer; const funcRetResult: Pointer); stdcall;
TSetArrLen = procedure (var a: TDArray; const x, y: Integer); stdcall;
}
 

Всего записей: 2282 | Зарегистр. 09-09-2006 | Отправлено: 01:14 07-12-2012 | Исправлено: Alex_Qwerty, 01:18 07-12-2012
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Universal Share Downloader / USD (часть 1)
gyra (06-12-2016 10:10): Universal Share Downloader (USD)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru