Question

我尝试将设置写入其他delpi项目，但它不能100％工作。并非所有te数据都在设置中。我使用这些脚本：

写给应用程序：

procedure WriteSettings(ServerFile: string; Settings: string);
var
 ResourceHandle: THandle;
 pwServerFile: PWideChar;
begin
 GetMem(pwServerFile, (Length(ServerFile) + 1) * 2);
 try
   StringToWideChar(ServerFile, pwServerFile, Length(ServerFile) * 2);
   ResourceHandle := BeginUpdateResourceW(pwServerFile, False);
   UpdateResourceW(ResourceHandle, MakeIntResourceW(10), 'SETTINGS', 0, @Settings[1], Length(Settings) + 1);
   EndUpdateResourceW(ResourceHandle, False);
 finally
   FreeMem(pwServerFile);
 end;
end;

阅读文件：

function LoadSettings: string;
var
  ResourceLocation: HRSRC;
  ResourceSize: dword;
  ResourceHandle: THandle;
  ResourcePointer: pointer;
begin
  ResourceLocation := FindResource(hInstance, 'SETTINGS', RT_RCDATA);
  ResourceSize := SizeofResource(hInstance, ResourceLocation);
  ResourceHandle := LoadResource(hInstance, ResourceLocation);
  ResourcePointer := LockResource(ResourceHandle);
  if ResourcePointer <> nil then
  begin
    SetLength(Result, ResourceSize - 1);
    CopyMemory(@Result[1], ResourcePointer, ResourceSize);
    FreeResource(ResourceHandle);
  end;
end;

例如，如果我写：“127.0.0.1”，那么我读到：“127。” 我该如何解决这个问题？

将设置保存在文件中

0 个答案: