[S] Builder coden ohne ExeMod

[Z4ppy]

Ich suche eine Möglichkeit, einen Builder ohne ExeMod zu coden. Gibts da was? Oder muss ich mir da was eigenes einfallen lassen?

MfG Z4ppy

[Volumen]

Wieso willst du denn nicht exemod benutzen? Ist doch gut.

[Z4ppy]

Ich hab schon meine Gründe dafür
Also, weiss jemand eine Alternative?

MfG Z4ppy

[Hamtaro]

einfach selber die Datei binär einlesen und dann deine Strings anhängen?
Wenn du das nicht willst:

unit uBuilder;
{
~  Anhängen von Strings an Dateien leicht gemacht  ~
~uBuilder Unit von Hamtaro - Kontakt ICQ: 383065218~
~Release Datum: 21.01.2008 - Going Down, Down, Down~
}
interface
uses sysutils, classes;

function AppendInfo     (Exename, Name, Info : String) : Boolean;
function AppendOrReplace(Exename, Name, Info : String) : Boolean;
function ReadInfo       (Exename, Name : String)       : String;
function DeleteAllInfo  (Exename : String)             :Boolean;
/////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
var Delimiter1      : String = '<in';
    Delimiter2      : String = 'f¤>';
    InnerDelimiter : String = '¦';

type TStringArray = Array of String;
type TByteArray   = Array of Byte;
implementation
//Die Explode funktion hab ich da her: http://www.delphipraxis.net/topic3816_ein+dynamisches+array+aus+einem+string+erzeugen.html
function Explode(const Separator, S: string; Limit: Integer = 0): TStringArray;
var
  SepLen: Integer;
  F, P: PChar;
  ALen, Index: Integer;
begin
  SetLength(Result, 0);
  if (S = '') or (Limit < 0) then Exit;
  if Separator = '' then
  begin
    SetLength(Result, 1);
    Result[0] := S;
    Exit;
  end;
  SepLen := Length(Separator);
  ALen := Limit;
  SetLength(Result, ALen);

  Index := 0;
  P := PChar(S);
  while P^ <> #0 do
  begin
    F := P;
    P := AnsiStrPos(P, PChar(Separator));
    if (P = nil) or ((Limit > 0) and (Index = Limit - 1)) then P := StrEnd(F);
    if Index >= ALen then
    begin
      Inc(ALen, 5);
      SetLength(Result, ALen);
    end;
    SetString(Result[Index], F, P - F);
    Inc(Index);
    if P^ <> #0 then Inc(P, SepLen);
  end;
  if Index < ALen then SetLength(Result, Index);
end;

function ReadWholeFile(exename : String) : String;
var
Datei : TFileStream;
begin
Datei := TFilestream.Create(Exename, fmShareDenyNone or fmOpenRead);
Datei.Seek(0,soFromBeginning);
SetLength(Result,Datei.Size);
Datei.Read(Result[1], Datei.Size);
Datei.Free;
end;


function ReadAllInfo(Exename : string) : String;
begin
Result := Copy(ReadWholeFile(Exename),Pos(Delimiter1 + Delimiter2,ReadWholeFile(Exename)),Length(ReadWholeFile(Exename)));
end;


function AppendInfo(Exename, Name, Info : String) : Boolean;
var
Datei : TFilestream;
infoString : String;
begin
Result := False;
If ReadInfo(Exename, Name) <> '' Then Exit;  //wir wollen keine doppelten
Result := True;
try
InfoString  := Delimiter1 + Delimiter2 + Name + InnerDelimiter + Info;
Datei := TFilestream.Create(Exename, fmOpenReadWrite or fmShareDenyWrite);
Datei.Seek(0, soFromEnd);
Datei.Write(Pointer(InfoString)^, Length(InfoString));
except
Result := False;
end;
Datei.Free;
end;


function AppendOrReplace(Exename, Name, Info : String) : Boolean;
var
Datei : TFilestream;
alleInfos : String;
neueInfos : String;
begin
result := True;
try
If ReadInfo(Exename,Name) = '' Then begin
  AppendInfo(Exename,Name,Info);
  Exit;
end;
AlleInfos := ReadAllInfo(Exename);
neueInfos := StringReplace(AlleInfos, '<inf¤>' + Name + '¦' + ReadInfo(Exename,Name),'<inf¤>' + Name + '¦' + Info, []);
DeleteAllInfo(Exename);
Datei := TFilestream.Create(Exename,fmOpenWrite Or fmShareDenyNone);
Datei.Seek(0,soFromEnd);
Datei.Write(Pointer(neueInfos)^,Length(neueInfos));
Datei.Free;
except
Result := false;
end;
end;


function DeleteAllInfo(Exename : String) : Boolean;
var
Datei : TFileStream;
ganzeDatei : String;
ohneInfos : String;
begin
Result := True;
try
ganzeDatei := ReadWholeFile(Exename);
ohneInfos := Copy(ReadWholeFIle(Exename),0,Pos(Delimiter1 + Delimiter2,ganzeDatei) - 1);
DeleteFile(Exename);
Datei := TFileStream.Create(Exename,fmCreate Or fmShareExclusive  Or fmOpenWrite);
Datei.Write(Pointer(ohneInfos)^,Length(ohneInfos));
Datei.Free;
except
Result := False;
end;
end;


function ReadInfo  (Exename, Name : String) : String;
var
alleinfos : String;
aInfos : TStringArray;
i : Integer;
begin
alleInfos := ReadAllInfo(Exename);
aInfos := Explode(Delimiter1 + Delimiter2, alleInfos);
For i := 0 To High(aInfos) do begin
  If Copy(aInfos[i],0, Pos(Innerdelimiter,aInfos[i]) -1)= name Then
  begin Result := Copy(aInfos[i],Pos(Innerdelimiter,aInfos[i]) + 1, Length(aInfos[i]));
  exit;
  end;
end;
end;

end.

Hat aber den Nachteil, dass die classes unit genutzt wird, unter 300kb wirst du deine exe kaum bekommen

[Z4ppy]

Geht es auch kleiner? Weil ich muss die Unit dann wohl auch im Server einbinden, um die Infos wieder auszulesen... Ein 300+ kB Server war eigentlich nicht mein Ziel ^^

MfG Z4ppy

[terrorzwerg]

schreib dir die entsprechenden Prozeduren und Funktionen aus der Exemod raus, dann haste nicht allen unnötigen Ballast (wenn das dein Problem ist ^^)

[Hamtaro]

Exemod verwendet soweit ich weiß auch die classes unit.
Wenn du es wirklich klein haben willst, benutz die CreateFile/WriteFile/ReadFile APIs
Näheres dazu steht in der MSDN

[Steiger_mp]

ich hatte es kleiner hinbekommen (ohne classes),ich schau nachher mal nach und editier

[Z4ppy]

Habs inzwischen hingekriegt. Im Builder lös ich es mit einem FileStream (also mit Classes), in der gebildeten EXE selbst les ich die Datei per AssignFile & Co. ein (bei nichtdarstellbaren Zeichen ersetz ich durch ein Leerzeichen) und durchsuch dann mit Pos nach dem String ^^

MfG Z4ppy