VPF::Прочитать и записать константы

ShadowDancer

Дата 19.7.2006, 00:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 15.6.2006

Репутация: нет
Всего: нет

Как из своей программы прочитать(записать) константы другой (другая программа моя, название констант знаю )

Sartorius

Дата 19.7.2006, 00:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1568
Регистрация: 18.7.2006
Где: Ivory tower

Репутация: нет
Всего: 37

Ты имеешь в виду изменение констант в exe-образе на диске или в памяти в момент выполнения программы?

Alexeis

Дата 19.7.2006, 00:13 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Константы не существуют в откомпилированом exe.
Существуют только их значения. Компилятор производит полную замену имен на их значения.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

ShadowDancer

Дата 19.7.2006, 00:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 15.6.2006

Репутация: нет
Всего: нет

Цитата(alexeis1 @ 19.7.2006, 00:13

)

Константы не существуют в откомпилированом exe.

Как бы да, но я видел в исходнике (исходника уже нету) вируса Latinus, как он считывает с сервера его константы и записывает их.

Добавлено @ 00:27

Цитата(Sartorius @ 19.7.2006, 00:11

)

Ты имеешь в виду изменение констант в exe-образе на диске или в памяти в момент выполнения программы?

Да, в ЕХЕ

Alexeis

Дата 19.7.2006, 00:43 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(ShadowDancerNew @ 19.7.2006, 00:24

)

считывает с сервера его константы и записывает их.

Наверное речь идет о других константах - напимер переменных окружения или настройках сервера, мало ли какие константы, но не константы языка object pascal.

--------------------

ShadowDancer

Дата 19.7.2006, 11:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 15.6.2006

Репутация: нет
Всего: нет

Нашёл я исходник и вынул от туда процедуры чтения/записи:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure ShowSettings(lpFileName:string);
    procedure ReadFile(lpFileName:string;var lpFileBuffer:string);
    function ValidFile(cPos:longint):Boolean;
    procedure Button2Click(Sender: TObject);
    procedure SaveSettings(lpFileName:string;NewFile:string);
    function AdjustString(lpString:string; lpSize:integer):string;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  const
  ICQ_NUMBER:string = 'icq_uin='; // size = 10 bytes

implementation

{$R *.dfm}

function TForm1.AdjustString(lpString:string; lpSize:integer):string;
var
   l:integer;
begin
   l:=Length(lpString);
   if l = lpSize then
   begin
      AdjustString:=lpString;
      Exit;
   end;
   if l < lpSize then
   begin
      AdjustString:=lpString + StringOfChar(' ',lpSize - l);
      Exit;
   end;
   if l > lpSize then
   begin
      AdjustString:=Copy(lpString,1,lpSize);
      Exit;
   end;
end;

procedure TForm1.SaveSettings(lpFileName:string;NewFile:string);
var
   fContent:string;
   p,l:longint;
   cICQ:string;
   lpFile:TextFile;
begin
   ReadFile(lpFileName,fContent);
   l:=Length(fContent);
   
   cICQ:=Trim(Edit2.Text);
   cICQ:=AdjustString(cICQ,10);

   p:=Pos(ICQ_NUMBER,fContent);
   if not ValidFile(p) then Exit;
   fContent:=Copy(fContent,1,p + Length(ICQ_NUMBER) - 1) + cICQ + Copy(fContent,p + Length(ICQ_NUMBER) + 10,l);

   AssignFile(lpFile,NewFile);
   ReWrite(lpFile);
   Writeln(lpFile,fContent);
   CloseFile(lpFile);

   fContent:=EmptyStr;
end;



function TForm1.ValidFile(cPos:longint):Boolean;
var
   r:Boolean;
begin
   r:=cPos > 0;
   if not r then
      MessageBox(handle,'Please, select an valid file.',PChar(Caption),MB_ICONERROR);
   ValidFile:=r;
end;

procedure TForm1.ReadFile(lpFileName:string;var lpFileBuffer:string);
var
   lpFile:File of Char;
   cBuffer:array [1..1024] of Char;
   r,Len:LongInt;
begin
   lpFileBuffer:='';
   AssignFile(lpFile,lpFileName);
   Reset(lpFile);
   Len:=FileSize(lpFile);
   while not Eof(lpFile) do
   begin
      BlockRead(lpFile,cBuffer,1024,r);
      lpFileBuffer:=lpFileBuffer + string(cBuffer)
   end;
   CloseFile(lpFile);
   if Length(lpFileBuffer) > Len then
      lpFileBuffer:=Copy(lpFileBuffer,1,Len);
end;

procedure TForm1.ShowSettings(lpFileName:string);
var
   fContent:string;
   p:longint;
   cICQ:string;
begin
   ReadFile(lpFileName,fContent);
   p:=Pos(ICQ_NUMBER,fContent);
   if not ValidFile(p) then Exit;
   cICQ:=Trim(Copy(fContent,p + Length(ICQ_NUMBER),10));
   Edit2.Text:=cICQ;
   fContent:=EmptyStr;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowSettings(edit1.text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   cFile:string;
begin
   cFile:=Edit1.text;
   if not FileExists(cFile) then
   begin
      MessageBox(handle,'Проверьте наличие файла',PChar(Caption),MB_ICONERROR);
      Exit;
   end;
   begin
      SaveSettings(cFile,cFile);
   end;

end;

end.

Если в другой программе вставить строчку

Код


const
  cICQ: string ='icq_uin=00000000  ';

тогда можно прочитать и записать эту константу из этой программы.
Единственное в этом коде я не всё ещё понял. Может есть какие примеры по проще ?

Alexeis

Дата 19.7.2006, 13:06 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

теперь понятно - нужно записать значения констант в файл и прочить затем из другой программы.
Или же просто любым способом передать значения констант другой программе ?

--------------------

bems

Дата 19.7.2006, 16:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(ShadowDancerNew @ 19.7.2006, 11:29

)

cICQ: string ='icq_uin=00000000 ';

Это не константа, это типизир. константа. А она в образе только один раз.

--------------------

Обижено школьников: 8

ShadowDancer

Дата 19.7.2006, 19:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 15.6.2006

Репутация: нет
Всего: нет

Как бы она не называлась, мне интересно разобрать каждое действие которое производиться в этом коде.
Про это где-нибудь можно почитать ?

ShadowDancer

Дата 20.7.2006, 07:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 15.6.2006

Репутация: нет
Всего: нет

Какие ещё есть способы записи данных в ЕХЕ, чтобы потом можно было эти данные использовать из того ЕХЕ, в который записал ?

Это сообщение отредактировал(а) ShadowDancerNew - 20.7.2006, 07:12

Yanis

Дата 20.7.2006, 09:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

ShadowDancerNew
Используй ресурсы.

Добавлено @ 09:56
я спросил у поиска...

--------------------

*щёлк*

ShadowDancer

Дата 22.7.2006, 23:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 15.6.2006

Репутация: нет
Всего: нет

Цитата(Yanis @ 20.7.2006, 09:51

)

я спросил у поиска...

Ничего не найдено по Вашему запросу. Расширьте критерии поиска и попробуйте снова.
Если подключен только windows, можно извлечь ресурсы ? Если нет, то какие есть способы записать информацию в файл ?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »