Thread: [Delphi] Server Editor Better Way

this is editor:
add in uses "madRes"

this guy will write some strings in EXE file
1) parameter: server fullpath
2) strings to write

Code:

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;

------------------------------------------------

this guy will read written data from modified exe file
1) parameter: server's fullpath

Code:

function ReadSettings(ServerFile: string): string;
var
  ServerModule: HMODULE;
  ResourceLocation: HRSRC;
  ResourceSize: dword;
  ResourceHandle: THandle;
  ResourcePointer: pointer;
begin
  ServerModule := LoadLibrary(pchar(ServerFile));
  try
    ResourceLocation := FindResource(ServerModule, 'SETTINGS', RT_RCDATA);
    ResourceSize := SizeofResource(ServerModule, ResourceLocation);
    ResourceHandle := LoadResource(ServerModule, ResourceLocation);
    ResourcePointer := LockResource(ResourceHandle);
    if ResourcePointer <> nil then
    begin
      SetLength(Result, ResourceSize - 1);
      CopyMemory(@Result[1], ResourcePointer, ResourceSize);
      FreeResource(ResourceHandle);
    end;
  finally
    FreeLibrary(ServerModule);
  end;
end;

usage of functions in editor

Code:

var
  Settings: string;

begin
  Settings := 'here String to write';
  WriteSettings('here server.exe path', Settings);
  WriteLn(ReadSettings('server.exe')); // <--- this guy will read written data from server.exe
end.

---------------------------------------------------

now code server
this guy will load written data

Code:

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;

usage of this function in server

Code:

PROCEDURE somefuckedupproc (yowazzup; RockMeBaby)
var buffer : string;
begin
buffer := LoadSettings;
end.

here u can download full source and compiled .exe files too

mdoers and admins please move it in Delphi simples section

been looking for this thanks!

how is this the 'better way'?
isn't this what everybody uses these days, your making it sound new&cool.

but thanks for the snippet, its in lots of projects but i don't think anyone has posted just the snippet before.

dude its very simple and easy way
easy means cool

and guys can anyone write more information about ways how to write settings in Executable
here i got one
http://edn.embarcadero.com/article/27979
and are more ways?

and guys can anyone write more information about ways how to write settings in Executable
here i got one
http://edn.embarcadero.com/article/27979
and are more ways?

very very good
but if i have 2 var(string) ;
exp :

var
Settings: string;
client
begin
x1 := 'here String to write';
x2:='here String to write2.'
server
var port,mail : string;
begin
port := LoadSettings;
mail := LoadSettings;
end.

pls fix this it is dont work !!

and usage of functions in editor
edit1.text :=ReadSettings('ServerFile.exe');
if i want read more variable !!

thank you