Чтение данных из буфера

function fReadText(bInBuffer : PAnsiChar; var iOffset : Integer): WideString;
 var iLength : Integer;
begin
    CopyMemory(@iLength, bInBuffer + iOffSet, 4);
    iOffset := iOffset + 4;
    SetLength(Result, iLength);
    CopyMemory(@Result[1], bInBuffer + iOffSet, iLength * 2);
    iOffset := iOffset + iLength * 2;
end;

function fReadJpegImage(bInBuffer: Pointer; var iOffset: Integer): TJpegImage;
type
  TJpegStream = class(TCustomMemoryStream) end;
var 
  JpegStream: TJpegStream;
begin
  JpegStream := TJpegStream.Create;
  try
    JpegStream.SetPointer(bInBuffer, MAXINT);
    JpegStream.Position := iOffset;
    Result := TJpegImage.Create;
    try
      Result.LoadFromStream(JpegStream);
      iOffset := JpegStream.Position;
    except
      Result.Free;
      raise;
    end;
  finally
    JpegStream.Free;
  end;
end;

function fAnsiToJPEG(var aSource:AnsiString):TJPEGImage;
var ms1: TMemoryStream;
begin
ms1:= TMemoryStream.Create;
ms1.Write(aSource, Length(aSource));
ms1.Position:= 0;
Result.LoadFromStream(ms1);
ms1.Destroy;
end;

unit main;
 
interface
 
uses windows, Classes, SysUtils, Dialogs, inifiles, ShellAPI, Graphics, Controls,
  StdCtrls, Variants, DB, ExtCtrls, DBCtrls, Grids, JPEG;
 
type
  TCommFortProcess = procedure(dwPluginID : DWORD; dID: DWORD; bOutBuffer : PAnsiChar; dwOutBufferSize : DWORD); stdcall;
  TCommFortGetData = function(dwPluginID : DWORD; dwID : DWORD; bInBuffer : PAnsiChar; dwInBufferSize : DWORD; bOutBuffer : PAnsiChar; dwOutBufferSize : DWORD): DWORD; stdcall;
  TJpegStream = class(TCustomMemoryStream);
 
function  PluginStart(dwThisPluginID : DWORD; func1 : TCommFortProcess; func2 : TCommFortGetData) : Integer; cdecl; stdcall;
procedure PluginStop(); cdecl; stdcall;
procedure PluginShowOptions(); cdecl; stdcall;
procedure PluginShowAbout(); cdecl; stdcall;
procedure PluginProcess(dwID : DWORD; bInBuffer : PAnsiChar; dwInBufferSize : DWORD); cdecl; stdcall;
function  PluginGetData(dwID : DWORD; bInBuffer : PAnsiChar;
            dwInBufferSize : DWORD; bOutBuffer : PAnsiChar; dwOutBufferSize : DWORD): DWORD; cdecl; stdcall;
 
function  fReadInteger(bInBuffer : PAnsiChar; var iOffset : Integer): Integer;
function  fReadText(bInBuffer : PAnsiChar; var iOffset : Integer): WideString;
procedure fWriteInteger(var bOutBuffer : PAnsiChar; var iOffset  : Integer; iValue : Integer);
procedure fWriteText(bOutBuffer : PAnsiChar; var iOffset  : Integer; uValue : WideString);
function  fTextToAnsiString(uText : WideString) : AnsiString;
function  fIntegerToAnsiString(iValue : Integer) : AnsiString;
 
exports PluginStart, PluginStop, PluginProcess, PluginGetData, PluginShowOptions, PluginShowAbout;
 
implementation
 
var
 
  { GLOBAL VARIABLES }
 
  dwPluginID : DWORD;
  CommFortProcess : TCommFortProcess;
  CommFortGetData : TCommFortGetData;
    Ver , WhenLoaded , WhenExecuted,  vopro : String;
  ResultStart , ServerState: Integer;
 
  FilterPos , DoIt , TxtFile , Info , MessInfo, f2, pust : String;
 
//---------------------------------------------------------------------------
function fReadInteger(bInBuffer : PAnsiChar; var iOffset : Integer): Integer; //вспомогательная функция для упрощения работы с чтением данных
begin
    CopyMemory(@Result, bInBuffer + iOffSet, 4);
    iOffset := iOffset + 4;
end;
 
 
//---------------------------------------------------------------------------
procedure fWriteInteger(var bOutBuffer : PAnsiChar; var iOffset  : Integer; iValue : Integer); //вспомогательная функция для упрощения работы с записью данных
begin
    CopyMemory(bOutBuffer + iOffSet, @iValue, 4);
    iOffset := iOffset + 4;
end;
//---------------------------------------------------------------------------
procedure fWriteText(bOutBuffer : PAnsiChar; var iOffset  : Integer; uValue : WideString); //вспомогательная функция для упрощения работы с записью данных
    var iLength : Integer;
begin
    iLength := Length(uValue);
    CopyMemory(bOutBuffer + iOffset, @iLength, 4);
    iOffset := iOffset + 4;
 
    CopyMemory(bOutBuffer + iOffSet, @uValue[1], iLength * 2);
    iOffset := iOffset + iLength * 2;
end;
 
//---------------------------------------------------------------------------
function fTextToAnsiString(uText : WideString) : AnsiString; //вспомогательная функция для упрощения работы с данными
    var iLength : Integer;
begin
    //функция предназначена для ознакомительных целей,
    //не рекомендуется для реального применения,
    //так как при ее использовании проявляется избыточное копирование данных
    iLength := Length(uText);
 
    SetLength(Result, 4 + iLength * 2);
 
    CopyMemory(@Result[1], @iLength, 4);
    CopyMemory(PAnsiChar(Result) + 4, @uText[1], iLength * 2);
end;
//---------------------------------------------------------------------------
function fIntegerToAnsiString(iValue : Integer) : AnsiString; //вспомогательная функция для упрощения работы с данными
begin
    //функция предназначена для ознакомительных целей,
    //не рекомендуется для реального применения,
    //так как при ее использовании проявляется избыточное копирование данных
 
    SetLength(Result, 4);
    CopyMemory(@Result[1], @iValue, 4);
end;
 
 
//---------------------------------------------------------------------------
function PluginStart(dwThisPluginID : DWORD; func1 : TCommFortProcess; func2 : TCommFortGetData) : Integer;
 
var
  filename , FilterposFromIni: String;
  myFile   : TextFile;
begin
 
 
    dwPluginID := dwThisPluginID;
    //При инициализации планину присваивается уникальный идентификатор
    //его необходимо обязательно сохранить, и указывать
    //в качестве первого параметра при инициировании событий
    CommFortProcess := func1;
        //указываем функцию обратного вызова,
    //с помощью которой плагин сможет инициировать события
 
    CommFortGetData := func2;
        //указываем функцию обратного вызова,
    //с помощью которой можно будет запрашивать необходимые данные от программы
 
 
    //Возвращаемые значения:
    //TRUE - запуск прошел успешно
    //FALSE - запуск невозможен
    Result := Integer(TRUE);
end;
 
 
 
//---------------------------------------------------------------------------
procedure PluginStop();
begin
    //данная функция вызывается при завершении работы плагина
end;
 
 
//---------------------------------------------------------------------------
procedure PluginProcess(dwID : DWORD; bInBuffer : PAnsiChar; dwInBufferSize : DWORD);
var iReadOffset, msgtype, icon, n : Integer;
aDataToSend : AnsiString;
user, ip, chanel, msgtxt, vopros, msgtxt1: WideString;
  int   : Integer;
    jp :   TJpegImage;
begin
iReadOffset := 0;
if (dwID = 10) then
begin
//получаем инфу о сообщении в приват
iReadOffset := 0;
user := fReadText(bInBuffer, iReadOffset);// !user
ip := fReadText(bInBuffer, iReadOffset);// !ip
icon := fReadInteger(bInBuffer, iReadOffset);// !icon
msgtype := fReadInteger(bInBuffer, iReadOffset);// !msgtype
msgtxt := fReadText(bInBuffer, iReadOffset);// !text
 
 
 
 
 
 
 
 
end;
end;
 
 
//---------------------------------------------------------------------------
 
function PluginGetData(dwID : DWORD; bInBuffer : PAnsiChar; dwInBufferSize : DWORD; bOutBuffer : PAnsiChar; dwOutBufferSize : DWORD): DWORD;
var iWriteOffset, iSize : Integer; //вспомогательные переменные для упрощения работы с блоком данных
    uName : WideString;
begin
 
      //функция передачи данных программе
    iWriteOffset := 0;
 
    //при значении dwOutBufferSize равным нулю функция должна вернуть объем данных, ничего не записывая
 
    if (dwID = 2800) then //предназначение плагина
    begin
        if (dwOutBufferSize = 0) then
            Result := 4 //объем памяти в байтах, которую необходимо выделить программе
        else
        begin
            fWriteInteger(bOutBuffer, iWriteOffset, 2); //плагин подходит только для клиента
            Result := 4;//объем заполненного буфера в байтах
        end;
    end
    else
    if (dwID = 2810) then //название плагина (отображается в списке)
    begin
        uName := 'kisa';//название плагина
        iSize := Length(uName) * 2 + 4;
 
        if (dwOutBufferSize = 0) then
            Result := iSize //объем памяти в байтах, которую необходимо выделить программе
        else
        begin
            fWriteText(bOutBuffer, iWriteOffset, uName);
            Result := iSize;//объем заполненного буфера в байтах
        end;
    end
    else
        Result := 0;//возвращаемое значение - объем записанных данных
end;
 
//---------------------------------------------------------------------------
procedure PluginShowOptions();
 
begin
 
end;
 
//---------------------------------------------------------------------------
procedure PluginShowAbout();
begin
    //данная функция вызывается при нажатии кнопки "О плагине" в списке плагинов
 
end;
 
 
 
 
end.