New user of WMS... need help

[Eugene]

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".

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 3835 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.

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.

[munichman]

.

[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?

[Eugene]

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)

[munichman]

Download pages - WmsDownloadURL

Is "WmsDownloadURL" a function?

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.

[Eugene]

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