ANTICHAT — форум по информационной безопасности, OSINT и технологиям

var
  Size:cardinal;
  mas:Array[0..65536] of char;
  Config:array of string;

procedure ReadConfig;
  var
    re:^integer;
    MyFile:integer;
  begin
    MyFile:= Integer(CreateFile(PChar('sittings.txt'), GENERIC_READ+GENERIC_WRITE,FILE_SHARE_READ+FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0));
    GetMem(re,Sizeof(re));
    size:=Getfilesize(MyFile,nil);
    ReadFile(THandle(MyFile), mas, size, LongWord(re^), nil);
   Closehandle(MyFile);
  end;

{$R *.dfm}
Function PosEx(Const SubStr, S: String; Offset: Cardinal = 1): Integer;
var
I,X: Integer;
Len, LenSubStr: Integer;
begin
If Offset = 1 Then
   Result := Pos(SubStr, S)
Else
begin
   I := Offset;
   LenSubStr := Length(SubStr);
   Len := Length(S) - LenSubStr + 1;
   While I <= Len Do
   begin
     If S[I] = SubStr[1] Then
     begin
       X := 1;
       While (X < LenSubStr) And (S[I + X] = SubStr[X + 1]) Do
         Inc(X);
       If (X = LenSubStr) Then
       begin
         Result := I;
         Exit;
       End;
     End;
     Inc(I);
   End;
   Result := 0;
End;
End;

procedure ObrabConfig;
  var
    i,j:integer;
    S:string;
  begin
  i:=1;
  form1.Label2.Caption:=inttostr(Size);
  while i<10771 do
    begin
      j:=posex(#13#10,mas,i);
      S:=copy(mas,i,j);
      i:=j+3;
      j:=0;
      Setlength(Config,high(Config)+2);
      Config[high(Config)]:=S;
      Form1.memo1.lines.Add(S);
      Form1.Label1.Caption:=inttostr(i);
     Application.ProcessMessages;
      if i>=10771 then
      showmessage('ok');
      Sleep(50);
    end;
  end;

var
 my_int:integer;
 my_str:array[0..255] of chat;
begin
my_int := GetPrivateProfileIntA('config', 'MY_INT_VAL', 20, 'c:\config.ini');
GetPrivateProfileStringA('config', 'MY_STR_VAL', 'defoult value', my_str, 256, 'config.ini');

function ReadString(h:THANDLE; var s:string; max:integer):boolean;
var
  buf:pchar;
  rb:dword;
  p:dword;
begin
  result := false;
  getmem(buf, max);
  ReadFile(h, buf^, max, rb, nil);
  if rb > 0 then
  begin
    result := true;
    p := pos(#10, string(buf));
    if p = 0 then // если последняя строка
    begin
      s := string(buf);
    end
    else
    begin
      if (p > 1) and (buf[p-2] = #13) then // если Win формат
      begin
        s := copy(buf, 0, p-2);
      end
      else // если NIX формат
      begin
        s := copy(buf, 0, p-1);
      end;
      SetFilePointer(h, p - rb, nil, FILE_CURRENT);
    end;
  end;
  freemem(buf);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  h:THANDLE;
  s:string;
  x:integer;
const
  MAX_LEN = 256;
begin
  h := CreateFile('e:\test.txt', GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
  if h <> INVALID_HANDLE_VALUE then
  begin
    for x := 1 to 10 do
    begin
      if ReadString(h, s, MAX_LEN) then // читаем строку
      begin // если считалась
        memo1.Lines.Add('Строка ' + inttostr(x) + ' - ' + s);
      end
      else break; // прерывем цикл если нет больше строк
    end;
    CloseHandle(h);
  end;
end;