AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Text mit TResourceStream laden

Ein Thema von Luckie · begonnen am 14. Apr 2011 · letzter Beitrag vom 14. Apr 2011
Antwort Antwort
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#1

Text mit TResourceStream laden

  Alt 14. Apr 2011, 10:28
Ich habe gerade mal versucht eine Textdatei, die als Ressource eingebunden ist mit TResourceStream zu laden. Über die ID geht es wunderbar, nur über den Namen nicht.

Delphi-Quellcode:
{$R resource.res}

function LoadTextFromResourceByName(ResourceName: ansiString): AnsiString;
var
  ResourceStream: TResourceStream;
begin
  ResourceStream := TResourceStream.Create(HInstance, ResourceName, RT_RCDATA);
  try
    try
      SetLength(Result, ResourceStream.Size);
      ResourceStream.ReadBuffer(Result[1], ResourceStream.Size);
    except
      raise;
    end;
  finally
    ResourceStream.Free;
  end;
end;

function LoadTextFromResourceByID(ResourceID: Cardinal): AnsiString;
var
  ResourceStream: TResourceStream;
begin
  ResourceStream := TResourceStream.CreateFromID(HInstance, ResourceID, RT_RCDATA);
  try
    try
      SetLength(Result, ResourceStream.Size);
      ResourceStream.ReadBuffer(Result[1], ResourceStream.Size);
    except
      raise;
    end;
  finally
    ResourceStream.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    //Memo1.Text := LoadTextFromResourceByID(100);
    Memo1.Text := LoadTextFromResourceByName('ExcludeList');
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
end;
Code:
#define ExcludeList 100

ExcludeList RCDATA DISCARDABLE "exclude.lst"
Kann mir bitte jemand sagen, was ich da falsch mache?

Entwicklungsumgebung ist Delphi 7.
Angehängte Dateien
Dateityp: zip TResourceStreamTextRCDATA.zip (6,5 KB, 17x aufgerufen)
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#2

AW: Text mit TResourceStream laden

  Alt 14. Apr 2011, 10:36
Ich mag mich täuschen, aber vermutlich deklarierst Du mit der define-Anweisung eine Konstante namens ExcludeList, welche beim Kompilieren durch 100 ersetzt wird.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#3

AW: Text mit TResourceStream laden

  Alt 14. Apr 2011, 10:39
Ein Blick via ResourceExplorer in die Exe bestätigt das...
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4

AW: Text mit TResourceStream laden

  Alt 14. Apr 2011, 10:41
Verfluchte Hacke. Das war es. Ich habe die Datei mit einem Ressourceneditor erzeugt und der hat mir die erste Zeile da reingeschrieben. Ich dachte, sie würde nicht weiter stören. Nehme ich sie raus, findet er sie über den Namen.

Danke, besten Dank.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:27 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz