String и PChar

[iCaesy]

То есть ошибка здесь

procedure TServerForm.Timer1Timer(Sender: TObject);
var
  buffer: array [0..255] of Char;
  Win: String;
begin
  GetWindowsDirectory(buffer, SizeOf(buffer));
  win := buffer;
  Label2.Caption := win;

Мы в строку win помещаем весь массив из 255 символов, среди которых имеется строка
C:/Windows, а нужно из массива скопировать именно эти 10 символов, и уже им присваивать указатель ? Так ?

[iCaesy]

Хотя нет, там же SizeOf...

[GunSmoker]

Эээ....

Как-то странно вы мыслите.

Label2.Caption := win;

В Label2 нормально выводит? Если функция выполнилась успешно (чего вы не проверяете), то - нормально выводит.

Этот кусок кода непричём. Разве он относится к передаче данных? Нет, он работает исключительно внутри одной программы.

А у вас же проблема - не в получении папки, а в передаче строк между программами.

Проблема начинается у вас с того момента, когда вы спроецировали TDataRecord, не учитывая размер передаваемых данных.

[iCaesy]

Выводит нормально, для этого лейбл и впихнул чтобы проверять.

[GunSmoker]

Это был риторический вопрос.

[iCaesy]

Память для файла как я понял выделяется здесь

 CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, 50, '_SharedMem');

[GunSmoker]

Да, я немного неверно сказал.

CreateFileMapping выделяет, конечно, с запасом. Но этот запас ты никак не используешь. TDataRecord - всего 8 байт, не 50.

Одно из простых решений - ограничиться данными фиксированного размера вместо динамических. К примеру, использовать вместо PChar ShortString или array[0..100] of AnsiChar/WideChar.

Плюсы: это простой подход.
Минусы: не всегда возможно ограничить данные сверху.

В данном случае для папки у тебя есть ограничение в MAX_PATH - как раз влезет в 256 символов ShortString, ну а дата - и подавно (если, конечно к нам прилетят змеелюди с Альфа Центавра с их месяцами в 400 символов - тогда да, у тебя будут проблемы).

Если подход с данными фиксированного размера неприменим, то нужно использовать другие, более сложные, подходы.

[GunSmoker]

(чтобы лучше это понять, я бы рекомендовал порисовать на бумажке)

[GunSmoker]

[iCaesy]

Спасибо большое. Побольше бы таких людей как ты, помог, по полочкам разложил, сразу понятно стало, сделал, работает.