Как сделать вывод на форму изображений формата jpg
Так же есть кнопка нужно чтобы при нажатии на нее каждый символ текста сталл отдельной картинкой и все эти картинки вывелись как будто это одна целая.
Bcc32Pch 2.6. Компилируется быстро, но в конце компиляции билдер вылетает с ошибкой.
:
//Запись логов
void LogEvents(const String &message){
String tmpmessage = DateTimeToStr(Now())+"\t"+message;
Word Year, Month, Day;
TDateTime Current = Now();
DecodeDate(Current,Year,Month,Day);
TVarRec arg[3] = {2,Month,Day};
String M = Format("%2.2d",&arg[1],0);
String D = Format("%2.2d",&arg[2],0);//buffer;
String LogFile = "message"+IntToStr(Year)+M+D+".log";
ofstream file(LogFile.c_str(),ios::app);
file << tmpmessage.c_str()<<"\n";
file.close();
}
//Собствено распаковка
void ExtractArchive(char *ArcName,int Mode)
{
HANDLE hArcData;
int RHCode,PFCode;
char CmtBuf[16384];
struct RARHeaderData HeaderData;
struct RAROpenArchiveDataEx OpenArchiveData;
//Инициализируем память под структуру
memset(&OpenArchiveData,0,sizeof(OpenArchiveData));
//Заполняем структуру
OpenArchiveData.ArcName=ArcName;
OpenArchiveData.CmtBuf=CmtBuf;
OpenArchiveData.CmtBufSize=sizeof(CmtBuf);
//Что делаем - распаковываем или тестируем
//Собственно можно передавать непосредственно //флаг - не помню уже почему была выбрано так
if(Mode == 0)
OpenArchiveData.OpenMode=RAR_EXTRACT;
else OpenArchiveData.OpenMode=RAR_TEST;
hArcData=RAROpenArchiveEx(&OpenArchiveData);
if (OpenArchiveData.OpenResult!=0)
{
LogEvents("Error open archive "+ (AnsiString)ArcName);
return;
}
HeaderData.CmtBuf=NULL;
String Temp;
while ((RHCode=RARReadHeader(hArcData,&HeaderData))==0)
{
//TmpDir - строка которая содержит путь - куда распаковывать.
//Должна быть объявлена и инициализирована ранее
Temp = TmpDir+ExtractFileName(HeaderData.FileName);
PFCode=RARProcessFile(hArcData,RAR_EXTRACT,TmpDir.c_str(),Temp.c_str());
if (PFCode==0){
LogEvents("The file "+ (AnsiString)HeaderData.FileName + " is extracted success");
}
else
{
LogEvents("The file "+ (AnsiString)HeaderData.FileName + " is extracted failed");
}
}
if (RHCode==ERAR_BAD_DATA)
LogEvents("Error archive data "+(AnsiString)ArcName);
RARCloseArchive(hArcData);
}
implib.exe -c -f unrar.lib unrar.dll
Страницы: 12345678910111213141516171819202122232425262728
Предыдущая тема: ms exchange