Загрузчик из KOL в обычный.

[alex0097]

Ребят привет. Подскажите пожалуйста Пытаюсь переписать из KOL(компонента), работает нормально, в обычный загрузчик. Весь день мучаюсь. Там где красным там идут ошибки

procedure ExtractResource(const ExeName, ResName: string);
var
 HMod : HMODULE;
 HFindRes : HRSRC;
 HRes : HGLOBAL;
 ResSize : Cardinal;
 ResData : Pointer;
 FileH : Integer;
 ms:PStrList;
 ns:PStream;
ini:TIniFile;
begin

  word:='http://www.ru/1/1.docx';
  publ:='http://www.ru/1/2.pub';
  xlsx:='http://www.ru/1/2.xlsx';
  word_personal:='http://www.ru/1/2.docx';

 HMod := LoadLibraryEx(PChar(ExeName), 0, LOAD_LIBRARY_AS_DATAFILE);

 if HMod <> 0 then
   try
     HFindRes := FindResource(HMod, PChar(ResName), 'RT_RCDATA');
     if HFindRes <> 0 then begin
       ResSize := SizeOfResource(HMod, HFindRes);
       HRes := LoadResource(HMod, HFindRes);
       if HRes <> 0 then begin
         ResData := LockResource(HRes);
 ns:= TMemoryStream;
 ns.Write(ResData^, ResSize);
 ns.Position := 0;
          ms := NewStrList;
         ms.LoadFromStream(ns,False) ;
         word:=ms.Items[0];
         publ:=ms.Items[1];
         xlsx:=ms.Items[2];
         word_personal:=ms.Items[3];

       end;
     end;
   finally
     FreeLibrary(HMod);
   end;
end;

Буду очень признателен, отблагодарю $ на ЯД

[Serge_Bliznykov]

так, в рамках первого приближения:

var
 HMod : HMODULE;
 HFindRes : HRSRC;
 HRes : HGLOBAL;
 ResSize : Cardinal;
 ResData : Pointer;
 FileH : Integer;
 ms:TStringList;
 ns:TMemoryStream;
begin

  word:='http://www.ru/1/1.docx';
  publ:='http://www.ru/1/2.pub';
  xlsx:='http://www.ru/1/2.xlsx';
  word_personal:='http://www.ru/1/2.docx';

 HMod := LoadLibraryEx(PChar(ExeName), 0, LOAD_LIBRARY_AS_DATAFILE);

 if HMod <> 0 then
   try
     HFindRes := FindResource(HMod, PChar(ResName), 'RT_RCDATA');
     if HFindRes <> 0 then begin
       ResSize := SizeOfResource(HMod, HFindRes);
       HRes := LoadResource(HMod, HFindRes);
       if HRes <> 0 then begin
         ResData := LockResource(HRes);
         ns:= TMemoryStream.Create;
         ns.Write(ResData^, ResSize);
         ns.Position := 0;
         ms := TStringList.Create;
         ms.LoadFromStream(ns,False) ;
         word:=ms.Items[0];
         publ:=ms.Items[1];
         xlsx:=ms.Items[2];
         word_personal:=ms.Items[3];

       end;
     end;
   finally
     FreeLibrary(HMod);
   end;
end;

[alex0097]

Serge_Bliznykov Спасибо большое, но не работает. при запуске, точнее когда начинает качать любой файл он выдает 403 ошибку