void OnCreateHTMLDocument()
{
TFileStream * T = new TFileStream("C:\\pictures\\1.mnt", fmCreate);
char *S = "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">";
T->Write(S, strlen(S));
*******************
for(int i=0; i<Form1->ComponentCount; i++)
{
TImage * IsImage = dynamic_cast<TImage *>(Form1->Components);
if(IsImage)
{
T->записать картинку
********************
Запись в файл
TFileStream *T = new TFileStream("f.txt", fmCreate);
T->Write(тут содержание ListBox) или можно только построчно записывать в файл?
Listbox->Items->SaveToStream(T);
Подскажите как в моем коде правильно добавить запись картинки в файл:
Код:
Это оно: T->WriteComponent(IsImage); или надо по другому?
Код:
void OnCreateHTMLDocument()
{
TFileStream * T = new TFileStream("C:\\pictures\\1.mnt", fmCreate);
char *S = "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">";
T->Write(S, strlen(S));
*******************
for(int i=0; i<Form1->ComponentCount; i++)
{
TImage * IsImage = dynamic_cast<TImage *>(Form1->Components);
if(IsImage)
{
IsImage->Picture->SaveToFile("C:\\pictures\\Image" + IntToStr(i) + ".bmp");
TFileStream *F = new TFileStream("C:\\pictures\\Image" + IntToStr(i) + ".bmp", fmOpenRead);
T->CopyFrom(F, F->Size);
//закрытие/удаление F
********************
{
TFileStream * T = new TFileStream("C:\\pictures\\1.mnt", fmCreate);
char *S = "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">";
T->Write(S, strlen(S));
*******************
for(int i=0; i<Form1->ComponentCount; i++)
{
TImage * IsImage = dynamic_cast<TImage *>(Form1->Components);
if(IsImage)
{
IsImage->Picture->SaveToFile("C:\\pictures\\Image" + IntToStr(i) + ".bmp");
TFileStream *F = new TFileStream("C:\\pictures\\Image" + IntToStr(i) + ".bmp", fmOpenRead);
T->CopyFrom(F, F->Size);
//закрытие/удаление F
********************