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 |
|