stream* GetStream(anynode *AnyNode, const tchar_t* URL, int Flags)
{
tchar_t Protocol[MAXPROTOCOL];
stream* Stream = NULL;
fourcc_t FourCC;
GetProtocol(URL,Protocol,TSIZEOF(Protocol),NULL);
FourCC = NodeEnumClassStr(AnyNode,NULL,STREAM_CLASS,NODE_PROTOCOL,Protocol);
#if defined(CONFIG_STREAM_CACHE)
if ((Flags & (SFLAG_NO_CACHING|SFLAG_WRONLY|SFLAG_CREATE))==0)
Stream = (stream*)NodeCreate(AnyNode,NodeClass_Meta(NodeContext_FindClass(AnyNode,FourCC),STREAM_CACHE_CLASS,META_PARAM_CUSTOM));
#endif
if (!Stream)
Stream = (stream*)NodeCreate(AnyNode,FourCC);
if (Stream && (Flags & SFLAG_NON_BLOCKING))
Stream_Blocking(Stream,0);
if (!Stream && !(Flags & SFLAG_SILENT))
{
tcsupr(Protocol);
NodeReportError(AnyNode,NULL,ERR_ID,ERR_PROTO_NOT_FOUND,Protocol);
}
#if defined(CONFIG_DEBUGCHECKS)
if (Stream)
tcscpy_s(Stream->URL,TSIZEOF(Stream->URL),URL);
#endif
return Stream;
}
static void RegistryRestore(const tchar_t* Base, const tchar_t* SubString)
{
tchar_t* BackupName = T("TCPMP.bak");
tchar_t Backup[MAXPATH];
HKEY Key;
DWORD RegSize;
DWORD RegType;
if (RegOpenKeyEx(HKEY_CLASSES_ROOT, Base, 0, KEY_READ|KEY_WRITE, &Key) == ERROR_SUCCESS)
{
RegSize=sizeof(Backup);
if (RegQueryValueEx(Key, NULL, 0, &RegType, (LPBYTE)Backup, &RegSize)==ERROR_SUCCESS)
{
tcsupr(Backup);
if (tcsstr(Backup,SubString))
{
RegSize=sizeof(Backup);
if (RegQueryValueEx(Key, BackupName, 0, &RegType, (LPBYTE)Backup, &RegSize)==ERROR_SUCCESS)
{
RegSetValueEx(Key, NULL, 0, REG_SZ, (LPBYTE)Backup, RegSize);
RegDeleteValue(Key, BackupName);
}
}
}
RegCloseKey(Key);
}
}
tchar_t* TcsToUpper(tchar_t* Out,size_t OutLen,const tchar_t* In)
{
if (OutLen)
{
tcscpy_s(Out,OutLen,In);
tcsupr(Out); //todo: doesn't support multibyte
}
return Out;
}
DLLEXPORT int WINAPI Uninstall_Exit(HWND hwndParent)
{
tchar_t Base[MAXPATH];
tchar_t Base2[MAXPATH];
HKEY Key;
DWORD RegSize;
int n;
if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, T("SOFTWARE"), 0, KEY_READ|KEY_WRITE, &Key) == ERROR_SUCCESS)
{
RegDeleteKey(Key,T("TCPMP"));
RegCloseKey(Key);
}
RegSize = sizeof(Base);
for (n=0;RegEnumKeyEx(HKEY_CLASSES_ROOT,n,Base,&RegSize,NULL,NULL,NULL,NULL)==ERROR_SUCCESS;++n)
{
if (Base[0] == '.')
{
tcscpy_s(Base2,TSIZEOF(Base2),Base+1);
tcscat_s(Base2,TSIZEOF(Base2),T("%sFile"));
tcsupr(Base2);
RegistryRestore(Base,Base2);
}
else
{
tcscpy_s(Base2,TSIZEOF(Base2),Base);
tcscat_s(Base2,TSIZEOF(Base2),T("\\DefaultIcon"));
RegistryRestore(Base2,T("\\PLAYER.EXE"));
tcscpy_s(Base2,TSIZEOF(Base2),Base);
tcscat_s(Base2,TSIZEOF(Base2),T("\\shell\\open\\command"));
RegistryRestore(Base2,T("\\PLAYER.EXE"));
}
RegSize = sizeof(Base);
}
return 0;
}
static void UpdateList(openfile* p, bool_t Silent, int ListMode)
{
streamdir DirItem;
stream* Stream;
int Result;
openitem New;
LVITEM Item;
int No=0;
int Pos=0;
int State = LVIS_FOCUSED;
int Len;
const tchar_t* s;
bool_t HasHost;
if (!p->Multiple || (p->Flags & OPENFLAG_SINGLE))
State |= LVIS_SELECTED;
Len = tcslen(p->Path);
if (Len && (p->Path[Len-1] == '\\' || p->Path[Len-1] == '/'))
p->Path[--Len] = 0;
tcscpy_s(p->Base,TSIZEOF(p->Base),p->Path);
s = p->Path[0] ? p->Path : T("\\");
AddHistory(p,s);
if (!ListMode)
return;
++p->InUpdate;
WaitBegin();
ShowWindow(p->WndList,SW_HIDE);
ClearList(p);
Item.mask=LVIF_TEXT|LVIF_IMAGE|LVIF_PARAM;
Item.pszText=T("");
Item.cchTextMax=1;
Item.iSubItem=0;
Stream = GetStream(p->Path,Silent);
if (Stream)
{
s = GetMime(p->Path,NULL,0,&HasHost);
if (*s)
{
Item.iImage=IMG_DIRUP;
Item.iItem = No;
Item.lParam = 0;
ListView_InsertItem(p->WndList,&Item);
ListView_SetItemText(p->WndList,No,0,T(".."));
ListView_SetItemText(p->WndList,No,1,(tchar_t*)LangStr(OPENFILE_ID,OPENFILE_UP));
++No;
}
Result = Stream->EnumDir(Stream,p->Path,p->Exts,*p->CurrentFileType!=-1,&DirItem);
if (ListMode==2 && Result == ERR_FILE_NOT_FOUND && UpperPath(p->Path,p->Last,TSIZEOF(p->Last)))
{
WaitEnd();
--p->InUpdate;
p->LastClick = -1;
UpdateList(p,Silent,ListMode);
return;
}
if (Result == ERR_NOT_DIRECTORY && !Silent)
{
New.FileName[0] = 0;
New.Ext[0] = 0;
New.Image = IMG_FILE;
New.Size = 0;
Item.lParam = (DWORD)malloc(sizeof(openitem));
if (Item.lParam)
{
p->Last[0] = 0;
Pos = No;
State = LVIS_SELECTED;
PostMessage(p->Win.Wnd,WM_COMMAND,PLATFORM_OK,0);
*(openitem*)Item.lParam = New;
Item.iItem = No;
Item.iImage = New.Image;
ListView_InsertItem(p->WndList,&Item);
++No;
}
}
if (Result == ERR_NONE)
Stream->Get(Stream,STREAM_BASE,p->Base,sizeof(p->Base));
while (Result == ERR_NONE)
{
tchar_t Size[32];
tchar_t Date[32];
int i;
for (i=0;i<No;++i)
{
LVITEM Item;
Item.iItem=i;
Item.iSubItem = 0;
Item.mask=LVIF_PARAM;
ListView_GetItem(p->WndList,&Item);
if (Item.lParam && tcscmp(((openitem*)Item.lParam)->FileName,DirItem.FileName)==0)
break;
}
if (i==No)
{
tchar_t DisplayName[MAXPATH];
tcscpy_s(New.FileName,TSIZEOF(New.FileName),DirItem.FileName);
New.DisplayName = DirItem.DisplayName[0] != 0;
tcscpy_s(DisplayName,TSIZEOF(DisplayName),New.DisplayName?DirItem.DisplayName:DirItem.FileName);
Size[0] = 0;
Date[0] = 0;
if (DirItem.Size < 0)
{
New.Image = IMG_DIR;
New.Size = 0;
New.Date = 0;
tcscpy_s(New.Ext,TSIZEOF(New.Ext),LangStr(OPENFILE_ID,OPENFILE_DIR));
tcscpy_s(New.Name,TSIZEOF(New.Name),DisplayName); //keep extension
}
else
{
switch (DirItem.Type)
{
case FTYPE_AUDIO: New.Image = IMG_AUDIO; break;
case FTYPE_PLAYLIST: New.Image = IMG_PLAYLIST; break;
case FTYPE_VIDEO: New.Image = IMG_VIDEO; break;
default: New.Image = IMG_FILE; break;
}
New.Size = DirItem.Size;
New.Date = DirItem.Date;
SplitURL(DisplayName,NULL,0,NULL,0,New.Name,TSIZEOF(New.Name),New.Ext,TSIZEOF(New.Ext));
tcsupr(New.Ext);
if (New.Size >= 0)
{
if (New.Size < 10000*1024)
stprintf_s(Size,TSIZEOF(Size),T("%d KB"),New.Size/1024);
else
stprintf_s(Size,TSIZEOF(Size),T("%d MB"),New.Size/(1024*1024));
}
if (New.Date >= 0)
{
FILETIME Time;
SYSTEMTIME SysTime;
Time.dwHighDateTime = (DWORD)(New.Date >> 32);
Time.dwLowDateTime = (DWORD)(New.Date);
if (FileTimeToSystemTime(&Time,&SysTime))
GetDateFormat(LOCALE_USER_DEFAULT,DATE_SHORTDATE,&SysTime,NULL,Date,TSIZEOF(Date));
}
}
Item.lParam = (DWORD)malloc(sizeof(openitem));
if (Item.lParam)
{
*(openitem*)Item.lParam = New;
Item.iItem = No;
Item.iImage = New.Image;
ListView_InsertItem(p->WndList,&Item);
ListView_SetItemText(p->WndList,No,0,New.Name);
ListView_SetItemText(p->WndList,No,1,New.Ext);
ListView_SetItemText(p->WndList,No,2,Size);
ListView_SetItemText(p->WndList,No,3,Date);
++No;
}
}
Result = Stream->EnumDir(Stream,NULL,NULL,0,&DirItem);
}
