Add(MainForm,2953706,224,35)
{
 link(onCreate,10296752:doFind,[])
}
Add(FindWindow,1593706,343,42)
{
 ClassName="AIMP2_RemoteInfo"
 SkipParam=1
 link(onFind,15880505:doText,[])
}
Add(FindWindow,10296752,280,49)
{
 ClassName="AIMP.exe"
 link(onFind,1593706:doFindChild,[])
}
Add(Edit,15880505,406,42)
{
 Left=10
 Top=10
 Width=370
}
Add(Button,16461994,210,196)
{
 Left=10
 Top=35
 Width=370
 Data=Integer(0)
 link(onClick,11158514:doEvent1,[])
}
Add(InlineCode,11816708,336,126)
{
 WorkPoints=#5:doGet|
 EventPoints=#5:onOut|
 VarPoints=#6:AAlbum|7:AArtist|5:ADate|9:AFileName|6:ATitle|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|19:    AFile: THandle;|16:	AInfo: Pointer;|16:	ABufferz: Real;|15:	AAlbumz: Real;|16:	AArtistz: Real;|14:	ADatez: Real;|18:	AFileNamez: Real;|15:	AGenrez: Real;|15:	ATitlez: Real;|3:   |9:   public|20:    onOut:THI_Event;|50:    procedure doGet (var _Data:TData; Index:word);|58:    procedure _var_AAlbum (var _Data: TData; Index: Word);|56:	procedure _var_AArtist (var _Data: TData; Index: Word);|54:	procedure _var_ADate (var _Data: TData; Index: Word);|58:	procedure _var_AFileName (var _Data: TData; Index: Word);|55:	procedure _var_AGenre (var _Data: TData; Index: Word);|55:	procedure _var_ATitle (var _Data: TData; Index: Word);|4:    |5: end;|0:|14:implementation|0:|6: const|45:  AIMPRemoteAccessClass = 'AIMP2_RemoteInfo';|37:  AIMPRemoteAccessMapFileSize = 2048;|0:|28:procedure THiAsmClass.doGet;|7:  begin|71:  AFile := OpenFileMapping(FILE_MAP_READ, True, AIMPRemoteAccessClass);|82:  AInfo := MapViewOfFile(AFile, FILE_MAP_READ, 0, 0, AIMPRemoteAccessMapFileSize);|2:  |71:  ABufferz := Pointer(NativeUInt(AInfo) + SizeOf(TAIMPRemoteFileInfo));|57:  AAlbumz := ExtractString(ABuffer, AInfo^.AlbumLength); |59:  AArtistz := ExtractString(ABuffer, AInfo^.ArtistLength); |55:  ADatez := ExtractString(ABuffer, AInfo^.DateLength); |63:  AFileNamez := ExtractString(ABuffer, AInfo^.FileNameLength); |57:  AGenrez := ExtractString(ABuffer, AInfo^.GenreLength); |56:  ATitlez := ExtractString(ABuffer, AInfo^.TitleLength);|2:  |25:UnmapViewOfFile(AInfo);  |10://finally |20:CloseHandle(AFile); |38:_hi_CreateEvent(_data, @onOut, AFile);|4:end;|0:|29:procedure THiAsmClass.AAlbum;|5:begin|28:     dtReal(_Data, AAlbumz);|4:end;|0:|30:procedure THiAsmClass.AArtist;|5:begin|29:     dtReal(_Data, AArtistz);|4:end;|0:|28:procedure THiAsmClass.ADate;|5:begin|27:     dtReal(_Data, ADatez);|4:end;|0:|32:procedure THiAsmClass.AFileName;|5:begin|31:     dtReal(_Data, AFileNamez);|4:end;|0:|29:procedure THiAsmClass.AGenre;|5:begin|28:     dtReal(_Data, AGenrez);|4:end;|0:|29:procedure THiAsmClass.ATitle;|5:begin|28:     dtReal(_Data, ATitlez);|4:end;|0:|4:end.|
}
Add(Memo,12740452,448,168)
{
 Left=10
 Top=60
 Width=370
 Height=200
}
Add(DoData,16134035,336,168)
{
 link(onEventData,10120147:doWork2,[])
 link(Data,11816708:AAlbum,[])
}
Add(DoData,9587571,343,203)
{
 link(onEventData,11275292:doWork2,[])
 link(Data,11816708:AArtist,[])
}
Add(DoData,6586898,350,238)
{
 link(onEventData,14547456:doWork2,[])
 link(Data,11816708:ADate,[])
}
Add(DoData,11510184,357,273)
{
 link(onEventData,2387381:doWork2,[])
 link(Data,11816708:AFileName,[])
}
Add(DoData,8840521,364,308)
{
 link(onEventData,2387381:doWork3,[(417,314)])
 link(Data,11816708:ATitle,[])
}
Add(Hub,11158514,273,196)
{
 OutCount=5
 link(onEvent1,16134035:doData,[(311,202)(311,174)])
 link(onEvent2,9587571:doData,[])
 link(onEvent3,6586898:doData,[(319,216)(319,244)])
 link(onEvent4,11510184:doData,[(322,223)(322,279)])
 link(onEvent5,8840521:doData,[(325,230)(325,314)])
}
Add(HubEx,10120147,413,168)
{
 link(onEvent,12740452:doAdd,[])
}
Add(HubEx,11275292,413,203)
{
 Angle=3
 link(onEvent,10120147:doWork3,[])
}
Add(HubEx,14547456,413,238)
{
 Angle=3
 link(onEvent,11275292:doWork3,[])
}
Add(HubEx,2387381,413,273)
{
 Angle=3
 link(onEvent,14547456:doWork3,[])
}