TResourceStream. Выдергивание моей строки.

[Человек_Борща]

Доброго времени суток!

Создал ресурс *.rc:

STRINGTABLE
LANGUAGE 0, 0
{
7, "FileURL=http://localhost/file.exe"
}

Компилирую в проект. Нужно в проекте выдернуть эту строку. Как?

Пробовал так:

var
  cFill: string;
  RS: TResourceStream;
  SS: TStringStream;
  s: string;
begin
  cFill := 'FileURL=';
  RS := TResourceStream.Create(HInstance, '7', RT_STRING);
  SS := TStringStream.Create;
  try
    SS.LoadFromStream(RS);
    s:=ss.DataString;
  finally
    FreeAndNil(SS);
    FreeAndNil(RS);
  end;
end;

Пишет, что ресурс с id 7 не существует

Как правильно строки вытаскивать?

[robt]

а его реально может не существовать,ты сматрел че у тебя в ресе получается?
кроме того id должен быть цифрой а не строкой
кури вот это

if LoadString(hInstance, 7, буфер, длинна) <> 0 then

[Человек_Борща]

Ресурс линкуется и виден в exe.


вот пытаюсь достать..

const
  BuffSize = 511; //0+511
var
  cFill: string;
  s: string;
  Buff:array[0..BuffSize] of PChar;
  pBuff:Pointer;
begin
  pBuff:=@Buff;
  cFill := 'FileURL=';
  if LoadString(HInstance, 7, pBuff, BuffSize) <> 0 then
  begin
    s := string(pBuff^);
    Result:=s;
  end;
end;

Ну и вылетаю в AV.

2 варианта:
1. я что-то не так делаю
2. я намудрил с буфером и его длинной.

[Пепел Феникса]

this parameter can be MAKEINTRESOURCE(ID), where ID is the integer identifier of the resource.

а его реально может не существовать,ты сматрел че у тебя в ресе получается?

в честь чего не должно существовать то?

[robt]

Сообщение от Пепел Феникса

в честь чего не должно существовать то?

бывает

const
  BuffSize = 511; //0+511
var
  cFill: string;
  Buff:array[0..BuffSize] of Char;
begin
  cFill := 'FileURL=';
  if LoadString(HInstance, 7, @Buff, BuffSize) <> 0 then  Result:=Buff;
end;

[GunSmoker]

RS := TResourceStream.Create(HInstance, '7', RT_STRING);

Здесь ты не ресурс с номером 7 грузишь, а ресурс с именем 7.

Надо:

RS := TResourceStream.Create(HInstance, MakeIntResource(7), RT_STRING);

[robt]

куда катится мир...
изза какойта позорной строчки в ресурсах,народ городит огороды с потоками и классами

[Пепел Феникса]

куда катится мир...
изза какойта позорной строчки в ресурсах,народ городит огороды с потоками и классами

порою проще работать с потоком ресурсным, чем с функциями АПИ.

[GunSmoker]

И правильно делают.

[Человек_Борща]

Гм..

implementation

function GetSCClientStr: string;
var
  cFill: string;
  RS: TResourceStream;
  SS: TStringStream;
  s: string;
begin
  cFill := 'FileURL=';
  RS := TResourceStream.Create(HInstance, MakeIntResource(7), RT_STRING); //Ухожу в AV
  SS := TStringStream.Create;
  try
    SS.LoadFromStream(RS);
    s:=ss.DataString;
  finally
    FreeAndNil(SS);
    FreeAndNil(RS);
  end;
end;

initialization
  vSCClientURL:=GetSCClientStr;

Выкидивает пендалями в ошибку. И вроде правильно все, но и ошибку выбивает. ресурс точно существует.
vSCClientURL - глобальная переменная.


Далее

const
BuffSize = 511; //0+511
var
cFill: string;
Buff:array[0..BuffSize] of Char;
begin
cFill := 'FileURL=';
if LoadString(HInstance, 7, @Buff, BuffSize) <> 0 then Result:=Buff;
end;

Странно, но это работает....