将设置保存在文件中

时间:2014-02-19 14:48:33

标签: delphi settings

我尝试将设置写入其他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 个答案:

没有答案