babaev-an/lasarus_compotents
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Стартовый пул

Browse Source
This commit is contained in:
Александр Бабаев
2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
unrar/Examples/C/ReadMe.Txt Normal file
View File

@@ -0,0 +1,4 @@
C sample of the UNRAR.DLL library usage.
To build UNRDLL.EXE you need to compile UNRDLL.C as Windows console
application. Do not forget to put UNRAR.H to the current directory.

13
unrar/Examples/C/UnRDLL.Def Normal file
View File

@@ -0,0 +1,13 @@
IMPORTS
unrar.RAROpenArchive
unrar.RAROpenArchiveEx
unrar.RARCloseArchive
unrar.RARReadHeader
unrar.RARReadHeaderEx
unrar.RARProcessFile
unrar.RARProcessFileW
unrar.RARSetChangeVolProc
unrar.RARSetProcessDataProc
unrar.RARSetCallback
unrar.RARSetPassword

318
unrar/Examples/C/UnRDLL.c Normal file
View File

@@ -0,0 +1,318 @@
#define STRICT
#include <windows.h>
#include <stdio.h>
#include <ctype.h>
#include <locale.h>
#include "unrar.h"
enum { EXTRACT, TEST, PRINT, LIST };
void ExtractArchive(char *ArcName,int Mode);
void ListArchive(char *ArcName);
void ShowComment(char *CmtBuf);
void OutHelp(void);
enum ERR_TYPE {ERR_OPEN, ERR_READ, ERR_PROCESS};
void OutError(int Error,char *ArcName,int ErrType);
void ShowArcInfo(unsigned int Flags,char *ArcName);
void OutProcessFileError(int Error);
int CALLBACK CallbackProc(UINT msg,LPARAM UserData,LPARAM P1,LPARAM P2);
main(int Argc, char *Argv[])
{
setlocale(LC_ALL, NULL);
if (Argc!=3)
{
OutHelp();
return(0);
}
switch(toupper(Argv[1][0]))
{
case 'X':
ExtractArchive(Argv[2],EXTRACT);
break;
case 'T':
ExtractArchive(Argv[2],TEST);
break;
case 'P':
ExtractArchive(Argv[2],PRINT);
break;
case 'L':
ListArchive(Argv[2]);
break;
default:
OutHelp();
return(0);
}
return(0);
}
void ExtractArchive(char *ArcName,int Mode)
{
HANDLE hArcData;
int RHCode,PFCode;
char CmtBuf[16384];
struct RARHeaderData HeaderData;
struct RAROpenArchiveDataEx OpenArchiveData;
memset(&HeaderData,0,sizeof(HeaderData));
memset(&OpenArchiveData,0,sizeof(OpenArchiveData));
OpenArchiveData.ArcName=ArcName;
OpenArchiveData.CmtBuf=CmtBuf;
OpenArchiveData.CmtBufSize=sizeof(CmtBuf);
OpenArchiveData.OpenMode=RAR_OM_EXTRACT;
OpenArchiveData.Callback=CallbackProc;
OpenArchiveData.UserData=Mode;
hArcData=RAROpenArchiveEx(&OpenArchiveData);
if (OpenArchiveData.OpenResult!=0)
{
OutError(OpenArchiveData.OpenResult,ArcName,ERR_OPEN);
return;
}
ShowArcInfo(OpenArchiveData.Flags,ArcName);
if (OpenArchiveData.CmtState==1)
ShowComment(CmtBuf);
while ((RHCode=RARReadHeader(hArcData,&HeaderData))==0)
{
switch(Mode)
{
case EXTRACT:
printf("\nExtracting %-45s",HeaderData.FileName);
break;
case TEST:
printf("\nTesting %-45s",HeaderData.FileName);
break;
case PRINT:
printf("\nPrinting %-45s\n",HeaderData.FileName);
break;
}
PFCode=RARProcessFile(hArcData,(Mode==EXTRACT) ? RAR_EXTRACT:RAR_TEST,
NULL,NULL);
if (PFCode==0)
printf(" OK");
else
{
OutError(PFCode,ArcName,ERR_PROCESS);
break;
}
}
OutError(RHCode,ArcName,ERR_READ);
RARCloseArchive(hArcData);
}
void ListArchive(char *ArcName)
{
HANDLE hArcData;
int RHCode,PFCode;
char CmtBuf[16384];
struct RARHeaderDataEx HeaderData;
struct RAROpenArchiveDataEx OpenArchiveData;
wchar_t RedirName[1024];
memset(&HeaderData,0,sizeof(HeaderData));
memset(&OpenArchiveData,0,sizeof(OpenArchiveData));
OpenArchiveData.ArcName=ArcName;
OpenArchiveData.CmtBuf=CmtBuf;
OpenArchiveData.CmtBufSize=sizeof(CmtBuf);
OpenArchiveData.OpenMode=RAR_OM_LIST;
OpenArchiveData.Callback=CallbackProc;
OpenArchiveData.UserData=LIST;
hArcData=RAROpenArchiveEx(&OpenArchiveData);
if (OpenArchiveData.OpenResult!=0)
{
OutError(OpenArchiveData.OpenResult,ArcName,ERR_OPEN);
return;
}
ShowArcInfo(OpenArchiveData.Flags,ArcName);
if (OpenArchiveData.CmtState==1)
ShowComment(CmtBuf);
printf("\nFile Size");
printf("\n-------------------------------");
HeaderData.RedirName=RedirName;
HeaderData.RedirNameSize=sizeof(RedirName)/sizeof(RedirName[0]);
while ((RHCode=RARReadHeaderEx(hArcData,&HeaderData))==0)
{
__int64 UnpSize=HeaderData.UnpSize+(((__int64)HeaderData.UnpSizeHigh)<<32);
printf("\n%-20s %10Ld ",HeaderData.FileName,UnpSize);
if (HeaderData.RedirType!=0)
printf("\n\tlink type %d, target %ls",HeaderData.RedirType,HeaderData.RedirName);
if ((PFCode=RARProcessFile(hArcData,RAR_SKIP,NULL,NULL))!=0)
{
OutError(PFCode,ArcName,ERR_PROCESS);
break;
}
}
OutError(RHCode,ArcName,ERR_READ);
RARCloseArchive(hArcData);
}
void ShowComment(char *CmtBuf)
{
printf("\nComment:\n%s\n",CmtBuf);
}
void OutHelp(void)
{
printf("\nUNRDLL. This is a simple example of UNRAR.DLL usage\n");
printf("\nSyntax:\n");
printf("\nUNRDLL X <Archive> extract archive contents");
printf("\nUNRDLL T <Archive> test archive contents");
printf("\nUNRDLL P <Archive> print archive contents to stdout");
printf("\nUNRDLL L <Archive> view archive contents\n");
}
void OutError(int Error,char *ArcName,int ErrType)
{
switch(Error)
{
case ERAR_NO_MEMORY:
printf("\nNot enough memory");
break;
case ERAR_BAD_DATA:
printf("\n%s: archive header or data are damaged",ArcName);
break;
case ERAR_BAD_ARCHIVE:
printf("\n%s is not RAR archive",ArcName);
break;
case ERAR_UNKNOWN_FORMAT:
printf("Unknown archive format");
break;
case ERAR_EOPEN:
if (ErrType==ERR_PROCESS) // Returned by RARProcessFile.
printf("Volume open error");
else
printf("\nCannot open %s",ArcName);
break;
case ERAR_ECREATE:
printf("File create error");
break;
case ERAR_ECLOSE:
printf("File close error");
break;
case ERAR_EREAD:
printf("Read error");
break;
case ERAR_EWRITE:
printf("Write error");
break;
case ERAR_SMALL_BUF:
printf("Buffer for archive comment is too small, comment truncated");
break;
case ERAR_UNKNOWN:
printf("Unknown error");
break;
case ERAR_MISSING_PASSWORD:
printf("Password for encrypted file or header is not specified");
break;
case ERAR_EREFERENCE:
printf("Cannot open file source for reference record");
break;
case ERAR_BAD_PASSWORD:
printf("Wrong password is specified");
break;
}
}
void ShowArcInfo(unsigned int Flags,char *ArcName)
{
printf("\nArchive %s\n",ArcName);
printf("\nVolume:\t\t%s",(Flags & 1) ? "yes":"no");
printf("\nComment:\t%s",(Flags & 2) ? "yes":"no");
printf("\nLocked:\t\t%s",(Flags & 4) ? "yes":"no");
printf("\nSolid:\t\t%s",(Flags & 8) ? "yes":"no");
printf("\nNew naming:\t%s",(Flags & 16) ? "yes":"no");
printf("\nRecovery:\t%s",(Flags & 64) ? "yes":"no");
printf("\nEncr.headers:\t%s",(Flags & 128) ? "yes":"no");
printf("\nFirst volume:\t%s",(Flags & 256) ? "yes":"no or older than 3.0");
printf("\n---------------------------\n");
}
int CALLBACK CallbackProc(UINT msg,LPARAM UserData,LPARAM P1,LPARAM P2)
{
switch(msg)
{
case UCM_CHANGEVOLUMEW:
if (P2==RAR_VOL_ASK)
{
printf("\n\nVolume %S is required\nPossible options:\n",(wchar_t *)P1);
printf("\nEnter - try again");
printf("\n'R' - specify a new volume name");
printf("\n'Q' - quit");
printf("\nEnter your choice: ");
switch(toupper(getchar()))
{
case 'Q':
return(-1);
case 'R':
{
wchar_t *eol;
printf("\nEnter new name: ");
fflush(stdin);
// fgetws may fail to read non-English characters from stdin
// in some compilers. In this case use something more
// appropriate for Unicode input.
fgetws((wchar_t *)P1,MAX_PATH,stdin);
eol=wcspbrk((wchar_t *)P1,L"\r\n");
if (eol!=NULL)
*eol=0;
}
return(1);
default:
return(1);
}
}
if (P2==RAR_VOL_NOTIFY)
printf("\n ... volume %S\n",(wchar_t *)P1);
return(1);
case UCM_PROCESSDATA:
if (UserData==PRINT)
{
fflush(stdout);
fwrite((char *)P1,1,P2,stdout);
fflush(stdout);
}
return(1);
case UCM_NEEDPASSWORDW:
{
wchar_t *eol;
printf("\nPassword required: ");
// fgetws may fail to read non-English characters from stdin
// in some compilers. In this case use something more appropriate
// for Unicode input.
fgetws((wchar_t *)P1,P2,stdin);
eol=wcspbrk((wchar_t *)P1,L"\r\n");
if (eol!=NULL)
*eol=0;
}
return(1);
}
return(0);
}