String и PChar

[iCaesy]

Вобщем суть в том что нужно из одно приложения в другое передать строку с помощью создания подгрузки файла в память, FileMapping.
Саму прогу написал, но строку не передает, точней передает иероглифы, в чем ошибка ?
Вот листинг:

Клиент:

unit cliUnit;

interface

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

type
  TClientForm = class(TForm)
    TimeSpeedButton: TSpeedButton;
    MemSpeedButton: TSpeedButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure TimeSpeedButtonClick(Sender: TObject);
    procedure MemSpeedButtonClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ClientForm: TClientForm;
  hFileMapObj: THandle;
  pSharedBuf:  Pointer;
  win: PChar;
implementation

{$R *.DFM}
type
 pDataRecord = ^TDataRecord;
 TDataRecord = record
  DateTime : PChar;
  Mem : PChar;
  end;


procedure TClientForm.FormCreate(Sender: TObject);
begin
 hFileMapObj:=
   CreateFileMapping(MAXDWORD, nil, PAGE_READWRITE, 0, 50, '_SharedMem');
  if  (hFileMapObj=0) then
   begin ShowMessage('Cannot CreateFileMapping'); Application.Terminate; Exit; end;
  pSharedBuf :=
    MapViewOfFile(hFileMapObj, FILE_MAP_WRITE, 0, 0, 0);
  if (pSharedBuf = nil) then
   begin ShowMessage('Cannot MapViewOfFile'); Application.Terminate; end;
end;

procedure TClientForm.Timer1Timer(Sender: TObject);
var p: integer;
begin
 if MemSpeedButton.Down then MemSpeedButton.Caption := PChar(pDataRecord(pSharedBuf)^.Mem);
 if TimeSpeedButton.Down then TimeSpeedButton.Caption := PChar(pDataRecord(pSharedBuf)^.DateTime);
end;

procedure TClientForm.TimeSpeedButtonClick(Sender: TObject);
begin
 if not TimeSpeedButton.Down then TimeSpeedButton.Caption := 'WinDir';
end;

procedure TClientForm.MemSpeedButtonClick(Sender: TObject);
begin
 if not MemSpeedButton.Down then MemSpeedButton.Caption := 'Cursor';
end;

procedure TClientForm.FormDestroy(Sender: TObject);
begin
 if Assigned(pSharedBuf) then UnMapViewOfFile(pSharedBuf);
 if hFileMapObj<>0 then CloseHandle(hFileMapObj);
end;

end.

Сервер:

unit srvUnit;

interface

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

type
  TServerForm = class(TForm)
    Timer1: TTimer;
    XPManifest1: TXPManifest;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const MaxClients = 32;


var
  ServerForm: TServerForm;
  hFileMapObj: THandle;
  pSharedBuf:  Pointer;

implementation


{$R *.DFM}
type
 pDataRecord = ^TDataRecord;
 TDataRecord = record
  DateTime : PChar;
  Mem : Pchar;
  end;

procedure TServerForm.Timer1Timer(Sender: TObject);
 var
 buffer: array [0..255] of char;
 Win: PChar;

begin
  GetWindowsDirectory(buffer, SizeOf(buffer));
  win := buffer;
  Label2.Caption := win;

  pDataRecord(pSharedBuf)^.DateTime := win ;
  pDataRecord(pSharedBuf)^.Mem := win;
end;

procedure TServerForm.FormCreate(Sender: TObject);
begin
 hFileMapObj:=
   CreateFileMapping(MAXDWORD, nil, PAGE_READWRITE, 0, 50, '_SharedMem');
  if  (hFileMapObj=0) then
   begin ShowMessage('Cannot CreateFileMapping'); Application.Terminate; Exit; end;
  pSharedBuf :=
    MapViewOfFile(hFileMapObj, FILE_MAP_WRITE, 0, 0, 0);
  if (pSharedBuf = nil) then
   begin ShowMessage('Cannot MapViewOfFile'); Application.Terminate; end;
end;

procedure TServerForm.FormDestroy(Sender: TObject);
begin
 if Assigned(pSharedBuf) then UnMapViewOfFile(pSharedBuf);
 if hFileMapObj<>0 then CloseHandle(hFileMapObj);
end;

end.

[_-Re@l-_]

Попробуйте AnsiString и PAnsiChar.

[GunSmoker]

Ыыыыыы.... это крайне интересная логика копирования. Указывать чужой программе в своё адресное пространство, доступа к которому у чужой программы нет.

Читаем мат-часть:
Что такое память программы.
Как работают с PChar.

Если хотите кратко понять суть, то вот здесь - читать секцию "проецируемые файлы" и вот это (ключевые слова "это не скопирует текст 'Delphi' в массив A").

[iCaesy]

Не понял, почему чужой программе ? Если определить переменную типа integer, и передавать ее то все прекрасно работает, вся проблема именно в преобразовании чара в стринг...

[GunSmoker]

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

Если тебе лень читать ссылки, можем сыграть в игру. Наводящий вопрос: сколько байт занимает TDataRecord?

[iCaesy]

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

[GunSmoker]

Потому что число имеет фиксированный размер, а строки - переменный.

[GunSmoker]

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

[iCaesy]

Спасибо за ссылки, попытаюсь разобраться .

Проблема в передачи неправильной длинны строки, я правильно понял ?

[GunSmoker]

Нет. Проблема в том, что вы вообще строку не передаёте.

Строки - это динамические данные (не важно, PChar или String), потому что они могу иметь произвольный размер. Любые динамические данные суть указатель.

Указатель - это когда данные располагаются не в переменной. Переменная лишь указывает на данные.

Поэтому, TDataRecord имеет размер 2 * SizeOf(Pointer) - 8 байт. При всём желании в 8 байт строку уместить физически невозможно.

Поэтому, когда вы передаёте между программами TDataRecord - вы передаёте указатели, но не данные. Понятно, что указатели на данные программы в другой программе лишены смысла.

Ну, это как если бы я вставил в свою машину флешку, скинул бы на неё ярлыки (а не файлы) и перенёс на вашу машину - без исходных файлов (данных) ярлыки (указатели) бесполезны.

Вот откуда у вас мусор - указатели указывают на "что-то", но это "что-то" - в другой программе, не вашей. А в вашей по этим адресам лежит что-то совершенно другое - ваши данные.