[RBForums] Getting Started: Vb To Realbasic

[rbforumnotifier]

New topic: 

Vb To Realbasic

<http://forums.realsoftware.com/viewtopic.php?t=25767>

       Page 1 of 1
   [ 1 post ]                 Previous topic | Next topic         Author  
Message       Dx-Dyablo           Post subject: Vb To RealbasicPosted: Tue Dec 
23, 2008 5:23 pm                        
Joined: Fri Feb 08, 2008 10:47 am
Posts: 104
Location: Portland, Oregon, USA              hay i need some help with this 
thingy!
to make it in Realbasic



unit msnNowPlaying;

interface

uses
 windows,umediar;

 procedure UpdateMsn(strTitle,strArtist,strAlbum:string; enabled:boolean = 
true); overload;
 procedure UpdateMsn(strIn:string; radioName:string); overload;
 procedure UpdateMsn(mp3:TmpegAudio); overload;
 function StripMsnIllegalChars(strIn:string):string;

 var
 stringBuffer:array [0..127] of WideChar;

implementation

uses
 const_win_messages,ufrmMain,sysutils,vars_global,helper_strings;


procedure UpdateMsn(mp3:TmpegAudio);
var
title,artist,album:string;
begin
if not vars_global.check_opt_gen_msnsong_checked then exit;

title:='';
artist:='';
album:='';

if mp3.Valid then begin

 if mp3.ID3v2.Exists then begin
  title:=mp3.id3v2.title;
  artist:=mp3.id3v2.artist;
  album:=mp3.id3v2.album;
 end;

 if mp3.ID3v1.Exists then begin
  if length(title)=0 then title:=mp3.id3v1.title;
  if length(artist)=0 then artist:=mp3.id3v1.artist;
  if length(album)=0 then album:=mp3.id3v1.album;
 end;

end;

 if ((length(title)=0) or
  (length(artist)=0)) then UpdateMsn(vars_global.caption_player,'')
  else begin
   vars_global.caption_player:=artist+' - '+title;
  UpdateMsn(title,artist,'');
  end;
end;

procedure UpdateMsn(strIn:string; radioName:string);
var
ind:integer;
artist,title:string;
begin
if not vars_global.check_opt_gen_msnsong_checked then exit;

strIn:=StripMsnIllegalChars(strIn);
radioName:=StripMsnIllegalChars(radioName);

 ind:=pos(' - ',strIn);

 if ind>0 then begin
  artist:=Trim(copy(strIn,1,ind-1));
  title:=Trim(copy(strIn,ind+3,length(strIn)));

  if length(title)=0 then begin
 title:=copy(radioName,1,30);
  end;
  
  UpdateMsn(title,artist,'');
 end else begin
 if strIn='' then UpdateMsn(radioName,'','')
  else UpdateMsn(strIn,'','');
 end;
 
end;

function StripMsnIllegalChars(strIn:string):string;
begin
result:=strIn;

while (pos('\0',result)>0) do
 result:=copy(result,1,pos('\0',result)-1) +
   copy(result,pos('\0',result)+2,length(result));

while (pos('http://',lowercase(result))>0) do
 result:=copy(result,1,pos('http://',lowercase(result))-1)+
   copy(result,pos('http://',lowercase(result))+7,length(result));

end;

procedure UpdateMsn(strTitle,strArtist,strAlbum:string; enabled:boolean = true);
var
 handleMSN:THandle;
 structCopy:TCopyDataStruct;

begin

 // Flush the array.
 FillChar(stringBuffer,SizeOf(stringBuffer),#0);

 strTitle:=Trim(copy(strTitle,1,90));
  strArtist:=Trim(copy(strArtist,1,90));
 stralbum:=Trim(copy(strAlbum,1,90));
 // The first Music can be changed to Games, Office, or Empty.
  if ((length(strTitle)>0) and (length(strArtist)>0) and (length(strAlbum)>0)) 
then
 StringToWideChar('\0Music\0'+inttostr(integer(enabled))+'\0'+'{1} - {2} - 
{0}'+'\0'+strTitle+'\0'+strArtist+'\0'+strAlbum+'\0'+'WMContentID'+#0,@stringBuffer[0],128)
  else
 if ((length(strTitle)>0) and (length(strArtist)>0)) then begin
  StringToWideChar('\0Music\0'+inttostr(integer(enabled))+'\0'+'{1} - 
{0}'+'\0'+strTitle+'\0'+strArtist+'\0'+'WMContentID'+#0,@stringBuffer[0],128);
 end else begin
   if length(strTitle)>0 then begin
  StringToWideChar('\0Music\0'+inttostr(integer(enabled))+'\0'+'{0} 
{1}'+'\0'+strTitle+'\0\0WMContentID'+#0,@stringBuffer[0],128);
   end else
   if length(strArtist)>0 then begin
  StringToWideChar('\0Music\0'+inttostr(integer(enabled))+'\0'+'{1} 
{0}'+'\0\0'+strArtist+'\0WMContentID'+#0,@stringBuffer[0],128);
   end else begin
  if enabled then exit;
  StringToWideChar('\0Music\0'+inttostr(integer(enabled))+'\0'+'{1} 
{0}'+'\0\0\0WMContentID'+#0,@stringBuffer[0],128);
   end;
  end;

 // Set up the structure to hold the WM_COPYDATA and set the values.
 FillChar(structCopy,SizeOf(TCopyDataStruct),#0);
 with structCopy do
 begin
 cbData:=SizeOf(stringBuffer);
 dwData:=$547;
 lpData:=...@stringbuffer[0];
 end;

 // Iterate through (for poloygamy) the MSN windows sending WM_COPYDATA to each
 handleMSN:=FindWindowEx(0,0,'MsnMsgrUIManager',nil);
 while handleMSN <> 0 do
 begin
 SendMessage(handleMSN,WM_COPYDATA,0,Integer(@structCopy));

 handleMSN:=FindWindowEx(0,handleMSN,'MsnMsgrUIManager',nil);
 end;
end;

end.     
_________________
Its not the same tell: I'll Kill you, than. It's time To kill...
http://www.bestfreeforums.com/forums/dxteam.html
  
                            Top            Display posts from previous: All 
posts1 day7 days2 weeks1 month3 months6 months1 year Sort by AuthorPost 
timeSubject AscendingDescending          Page 1 of 1
   [ 1 post ]     

-- 
Over 900 classes with 18000 functions in one REALbasic plug-in. 
The Monkeybread Software Realbasic Plugin v8.1. 

&lt;http://www.monkeybreadsoftware.de/realbasic/plugins.shtml&gt;

rbforumnotifier@monkeybreadsoftware.de