[Delphi]Resource Not Found???

0

robie wlasnie sobie programik - taki ala instalator

zrobilem sobie zasob - README RCDATA "Readme.txt" jest w pliku files.rc przerobilem go na files res i dodalem do kodu zrodlowego

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    RichEdit: TRichEdit;
    SaveDialog: TSaveDialog;
    Button1: TButton;
    procedure laduj;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;



var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R FILES.RES}

{ TForm1 }

procedure TForm1.laduj;
var
  Res : TResourceStream;
begin
  if SaveDialog.Execute then
  begin
  Res := TResourceStream.Create(hInstance, 'README' , 'RCDATA');
  try
    Res.SaveToFile(SaveDialog.FileName);
  finally
    res.Free;
  end;
  end;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  laduj;
end;

end.

i nie wiem dlaczego ale jak klikne na buttona i dam na zapisz to wyskakuje bląd "Resource README not found"
Macie jakies pomysly??

a moze jakis inny sposob ladowania zasobow bo <ort>w ogóle</ort> to chce z zasobow zaladowac plik Readme.txt do rich edit albo memo - ma byc to licencja programu wyswietlana w instalatorze.

z gory dzieki za odpowiedzi @~~

0

Hmm - dziwne .. niby wszystko jest okej - może daj tak:

Res := TResourceStream.Create(hInstance, 'README' , 'RT_RCDATA');

Chociaż wątpie, aby to coś dało :-/

0

dalej nic co to moze byc???

moze zna ktos jakąs inna metode??

0

A nie powinno być przypadkiem:

Res := TResourceStream.Create(hInstance, 'README' , RT_RCDATA);

?

Nie jestem pewny, bo nie patrzyłem do helpa, ale coś mi świta, że tam miała być jedna ze stałych.

0

A nie powinno być przypadkiem:

Res := TResourceStream.Create(hInstance, 'README' , RT_RCDATA);

?

Nie jestem pewny, bo nie patrzyłem do helpa, ale coś mi świta, że tam miała być jedna ze stałych.

Dokładnie tak :) Też kiedyś miałem ten problem i dłuuugo mi się go rozwiązywało :) heh wstyd się przyznać [wstyd]

0

dzieki wielkie

PS. wiecie moze jak usunąć folder (jaką procedurą?) - najlepiej razem z zawarością

0

W niedziałającym FAQ była do tego porada w API, ale zawsze można:

uses ShellApi;
ShellExecute(handle,'open','deltree','/y C:\cos',nil,SW_HIDE);

gdzie C:\cos to sciezka katalogu

0

heh nie wiem czemu ale to cos nie chce dzialac:(

0

RmDir('C:\katalog'); Ale nie da to nic jak folder nie jest pusty
ale w FAQ było coś na ten temat;

1 użytkowników online, w tym zalogowanych: 0, gości: 1