как записать String в память и прочесть его?


Даже както стыдно такие вопры. задавать.

Что значит в память? А она у тебя где? Если переменная типа string - то она уже в памяти. Или тебе надо из файла прочитать - readln. Или ты имеешь ввиду сделать ее доступной для всех програм - используй атомы.

Ты про так чтоли?

Код

procedure TForm1.Button1Click(Sender: TObject); var  SomeString : String;  Buff       : String;  NumOfBytes : Cardinal; begin  SomeString     := 'ControlValue';  Buff           := 'WritingOther';  Label1.Caption := SomeString;  WriteProcessMemory(GetCurrentProcess, @SomeString, @buff, sizeof(buff), NumOfBytes);  Label2.Caption := SomeString; end;

Вот поясняю. Мне надо сделать так чтоб моя программа определяла параметр с которым она была запущенна ну к примеру 10 секунд назад. Тоесть надо сделать так чтобы программа оставила какуюто временную запись но не в реестре и не в файле. Остаётся только малонадёжный буфер.

Мне казалось что можно и в память занести .  

В С++ можно указать тип переменной static. Oна не стирается каждый раз, при вызове процедуры. А есть ли аналог в паскале?

Код

void main() {  for (int i=0;i<10;i++)    somefunction(); } void somefunction(void) {  static int a=0;  cout<<a++<<" "; }

Выход будет: "0 1 2 3 4 5 6 7 8 9 ".

Цитата(RAdmin @ 18.6.2002, 13:50)

Мне казалось что можно и в память занести .

Попробуй через атомы

Через Атомы надо, тут пример уже проскакивал о Shareware защите - там было через атомы сделано.

Это понятно но мне надо записать туда независящую от меня запись и прочесть её а не сравнить.

Не знаю что такое "независящая от меня запись", но атомы позволяют писать туда информацию и читать из них...

Я про код:

Код

if  GlobalFindAtom('ITS_MY_UNIQUE_LINE') = 0 then  atom := GlobalAddAtom('ITS_MY_UNIQUE_LINE')  else begin  MessageBox(0,'Уже тружусь вовсю','',MB_OK);  halt;  end;

Тоесть тут пример записи и сравнения, а прочитать как?

GlobalGetAtomName
эта получает имя атома, по его номеру, но вот ток мне кажется-таки не прокатит эта затея с атомами :\

ты прав    это не катит.

Во! придумал...пиши в переменные окружающей среды
Если не нравится - бум думать дальше
DWORD GetEnvironmentVariable(
   LPCTSTR lpName, // address of environment variable name
   LPTSTR lpBuffer, // address of buffer for variable value
   DWORD nSize // size of buffer, in characters
);

BOOL SetEnvironmentVariable(
   LPCTSTR lpName, // address of environment variable name  
   LPCTSTR lpValue // address of new value for variable
);

К счастью количество атомов ограничено 0xFFFF, так что простые функции перебора работают достаточно быстро. Вот пример как сохранять и читать значение через атомы:

Код

const UniqueSignature='GI7324hjbHGHJKdhgn90jshUH*hjsjshjdj'; Procedure CleanAtoms; var P:PChar;    i:Word; begin  GetMem(p, 256);  For i:=0 to $FFFF do    begin      GlobalGetAtomName(i, p, 255);      if StrPos(p, PChar(UniqueSignature))<>nil then GlobalDeleteAtom(i);    end;  FreeMem(p); end; Procedure WriteAtom(Str:string); begin  CleanAtoms;  GlobalAddAtom(PChar(UniqueSignature+Str)); end; Function ReadAtom:string; var P:PChar;    i:Word; begin  GetMem(p, 256);  For i:=0 to $FFFF do    begin      GlobalGetAtomName(i, p, 255);      if StrPos(p, PChar(UniqueSignature))<>nil then break;    end;  result:=StrPas(p+length(UniqueSignature));  FreeMem(p); end; procedure TReadFromAtom.Button1Click(Sender: TObject); begin  WriteAtom(Edit1.text); end; procedure TReadFromAtom.Button2Click(Sender: TObject); begin  Showmessage(ReadAtom); end;

Примечание: константа "UniqueSignature" должна быть достаточно длинной, чтобы однозначно идентифицировать атом, в тоже время длина хранимой строки вместе с UniqueSignature не должна превышать 255 символов. Данная конструкция может хранить только 1 значение. Для хранения нескольких значений надо назначить несколько разных UniqueSignature и использовать сходные процедуры.

Вит, дык в том-то и дело, что он при след. запуске проги не будет знать чего записал т.е. не будет образца или его куска, по кторому можно найти атом..сравнивать-то не с чем :\