Acess Resources in Post scripting

[dodgetigger]

I am working on a new template, and I would like to copy a resource from the script resources to the publish folder in the post script.
This is basically my code:

Code: Select all

var
    AResource: THTMLResource;
    MyApp: WideString;
begin
  AResource := FindScriptResource ('MyResource');
  AResource.Save(Publisher.PublishFolder + 'work.exe');


The file is created, but only with 0 bytes.
What am I doing wrong here?

[Hert/IDimager]

Dt,

Is the resource found? Have you tried a check is the returned value is nil or not?

Hert

[dodgetigger]

Thanks, Hert.

I have now tried this code:

Code: Select all

AResource := FindScriptResource ('MyResource');
if AResource <> nil then
begin
  Say('Resource found');
  AResource.Save(Publisher.PublishFolder + 'work.exe');
end


I get the resource found message, but the file is zero. What I also realized now is that after the call to Save, the script just stops, code afterwards is not executed anymore (If I put a "Say" right behind the Save, I get nothing).
Also, the whole Publish process does not seem to finish correct, I never get the screen where I can choose to upload the result, show it in the browser, etc.
For whatever reason it doesn't like that "Save".

Maybe I would be better off referencing my resources in the HTML, and copy them to the publish root directory?
One resource is a temporary resource that I just need for the publishing process, the other one I need in the publish root directory.

[DirkS]

What I also realized now is that after the call to Save, the script just stops, code afterwards is not executed anymore (If I put a "Say" right behind the Save, I get nothing).

You could try to catch the error with something like this:

Code: Select all

try
  AResource.Save(Publisher.PublishFolder + 'work.exe')
except
  Say('Exception: ' + LastExceptionMessage);
end;


Gr.
Dirk.

[dodgetigger]

Thank you Dirk,

This is the error message when trying to save the Resource:

Error Message when trying to save a Resource

idi_error_Resource.Save.jpg (20.6 KiB) Viewed 215 times

As a workaround, could I move the Resource file from the Resources folder to the root directory?
There is a MoveFile function on the TImageObject, how about other files?

Edit: Ah, I found it: I have tried "MoveFile", which didn't work. But "RenameFile" is working nicely. Now I just have to remember adding and removing the files in the FTPFileModel, and I think I am good to go

Thank you for your help.

[Hert/IDimager]

Hi Dt,

I found this and now fixed it.

In fact the resources aren't direct accessible through the FindScriptResource method, but you should instead use the Publisher.Template.Resources.FindResource (AName: String) method.

I now fixed this and by-passed the FindScriptResource method to the template's resources. That fixed the issue.

Right now you would get a result but that isn't the case. the result stored in your AResource is in fact an unassigned pointer. I also fixed that so that FindScriptResource will return a nil pointer when no handler was specified (as i*was* the case in web publishing; again the next update will do it)

Thank you
Hert

[dodgetigger]

Thanks, Hert, that is nice to here.