Page 2 of 2
Re: New user of WMS... need help
Posted: Tue Aug 24, 2010 6:46 am
by Eugene
munichman wrote:Ok, I just found that in the program. However, I have to click on a specific movie file and right-click for "Edit information", and then I select the IMDB button and then I run IMDB with keywords, then in the browser window I click on the link for the movie in the IMDB website. Then I can finally click the button on the left called "Load information". It picks up the info great. Then I click OK, and the information is updated for that single movie file.
However, I want to have this automated using your WMS software. How do I do that? I cannot figure out how to do automate this.
In WMS is not ready scripts to automatically download information from IMDB and any other services. I think a lot of movies have in their name "Butterfly".
munichman wrote:
Also note that after I updated a couple movies manually, I went back to my "Actors" list and there still was nothing listed there. Shouldn't it get updated with the actors from the 2 movies I just updated? How do I fix this?
By default, load only the first actor. This can be changed in the script.

- imdbedit.JPG (30.49 KiB) Viewed 3836 times
Uncomment "Actor List"
Code: Select all
{ ActorItem := IMDBItem.ChildList.Finditem('Cast\0');
if ActorItem <> nil then
WmsSetMediaItemProperty('mpActor', ActorItem.Name);}
// Actor list
ActorItem := IMDBItem.ChildList.FindItem('Cast');
if ActorItem <> nil then begin
sActorList := '';
for i := 0 to ActorItem.ChildList.Count - 1 do begin
if sActorList <> '' then
sActorList := sActorList + ', ';
sActorList := sActorList + ActorItem.ChildList[i].Name;
end;
if sActorList <> '' then
WmsSetMediaItemProperty('mpActor', sActorList);
end;
TitleItem := IMDBItem.ChildList.Finditem('Title');
if (TitleItem <> nil) and (TitleItem.Image <> '') then
WmsSetMediaItemProperty('mpThumbnail', WmsDownloadThumbnail(TitleItem.Image));
finally
IMDBInfo.Free
end
end.
munichman wrote:
Is all of this stuff documented anywhere? Am I missing a manual? It would be saving me a lot of time if this stuff was documented.
Documentation is available only on basic operations.
Re: New user of WMS... need help
Posted: Fri Aug 27, 2010 5:48 pm
by munichman
.
Re: New user of WMS... need help
Posted: Fri Aug 27, 2010 5:49 pm
by munichman
Eugene, that is unfortunate that WMS cannot automatically generate the movie info using IMDB. So I can only use the manual method? I would've thought you had a function that I can call in PascalScript to perform the "get" operation from the IMDB website. It can return a list of items if IMDB comes back with multiple matches for the keyword search. Then using that list, I can use code to pick the one I want. Seems like it should be fairly easy to provide in your product? Am I wrong?
Re: New user of WMS... need help
Posted: Sat Aug 28, 2010 5:29 am
by Eugene
munichman wrote:Eugene, that is unfortunate that WMS cannot automatically generate the movie info using IMDB. So I can only use the manual method? I would've thought you had a function that I can call in PascalScript to perform the "get" operation from the IMDB website. It can return a list of items if IMDB comes back with multiple matches for the keyword search. Then using that list, I can use code to pick the one I want. Seems like it should be fairly easy to provide in your product? Am I wrong?
Download pages - WmsDownloadURL
Analyse: class TRegExpr
Example setting properties:
http://www.wildmediaserver.com/forum/vi ... f=19&t=109
You can also use any OLE-objects in the system (CreateOleObject)
Re: New user of WMS... need help
Posted: Sun Aug 29, 2010 5:41 pm
by munichman
Eugene wrote:
Download pages - WmsDownloadURL
Is "WmsDownloadURL" a function?
Eugene wrote:
You can also use any OLE-objects in the system (CreateOleObject)
Ok cool, so you have exposed some OLE objects. I have a lot of experience with COM objects and using VB script or VB.NET to manipulate apps using their exposed functions and objects. I will see what I can do.
Re: New user of WMS... need help
Posted: Sun Aug 29, 2010 5:50 pm
by Eugene
munichman wrote:Eugene wrote:
Download pages - WmsDownloadURL
Is "WmsDownloadURL" a function?
Yes, this function.
Example for WmsDownloadUrl and WinHTTP
Code: Select all
WinHttp: Variant;
begin
MediaResourceLink := '';
sVideoPage := WmsDownloadUrl(mpFilePath);
if WmsRegExMatch('value="http://www.megavideo.com(/v/.*?")', sVideoPage, sVideoLink) then begin
WinHttp := CreateOleObject('WinHttp.WinHttpRequest.5.1');
WinHttp.Option[WinHttpRequestOption_EnableRedirects] := False;
WinHttp.Open('HEAD', sVideoLink);
WinHttp.Send(Null);
if WmsRegExMatch('.*?&v=(.*)', WinHttp.GetResponseHeader('location'), sVideoID) then begin