Našao sam! Ti si napisao:
MojStream := TResourceStream.Create(HInstance,'ANIM','MYFILE');
a trebalo je;
MojStream := TResourceStream.Create(HInstance,'MYFILE','ANIM');
Citat:
Igor S:
Procedure TForm1.EkstraktujMojResource;
var
MojStream : TResourceStream;
begin
MojStream := TResourceStream.Create(HInstance,'ANIM','MYFILE');
MojStream.SaveToFile('C:\FajleExtractovanIzExea.avi');
MojStream.Free;
end;
Sad radi ok. Hvala na pomoći, još ako netko zna ono s bazom, ili bar neki link s primjerom... To je obična Accessova baza sa ekstenzijom .mdb (koju je netko iz nepoznatih razloga promijenio u .dat)
http://www.dropbox.com/referrals/NTQ0MTI2NDc5
https://www.agronomija.info/
Failure is not an option. It comes bundled with your Microsoft product.