VPF::сохранение картинки в HTML - Форум программистов

sinij

Дата 11.11.2005, 12:21 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 5.10.2005
Где: Украина, Киев

Репутация: нет
Всего: нет

Подскажите как сделать загрузку картинки из БД и выгрузку ее в НТМЛ

пишу

Код



  int i=0;
  TMemoryStream *S1=new TMemoryStream();
  Response->Content="\n\n\n";
  Response->Content=Response->Content+"&icirc;&ograve;&eth;&egrave;&ntilde;&icirc;&acirc;&ecirc;&agrave; &egrave; &ntilde;&icirc;&otilde;&eth;&agrave;&iacute;&aring;&iacute;&egrave;&aring; &ecirc;&agrave;&eth;&ograve;&egrave;&iacute;&ecirc;&egrave;";

  SQLConnection1->Connected=true;
  while(!SQLConnection1->Connected);
   SQLConnection1->Open();
  SQLQuery1->SQL->Clear();
  SQLQuery1->SQL->Add("select * from pic");
  SQLQuery1->Open();
  S1->Position=0;
  while(!SQLQuery1->Eof){
    Response->Content=Response->Content+SQLQuery1->Fields->FieldByName("EXT")->AsString+"<br>";
   ((TBlobField*)SQLQuery1->Fields->FieldByName("PIC"))->SaveToStream(S1);
   Response->Content=Response->Content+"<img src=\"";
   //S1->SaveToFile(IntToStr(i)+".jpg");
   Response->ContentType="image/jpeg";
   Response->ContentStream=S1;
   Response->ContentType="text/html";
   Response->Content=Response->Content+"\">";
   SQLQuery1->Next();
   i++;
  }

и ничего не получается только картинка пустая smile

poland

Дата 11.11.2005, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 14.6.2005

Репутация: нет
Всего: нет

После SaveToStream(S1) файл надо закрыть.

sinij

Дата 11.11.2005, 13:01 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 5.10.2005
Где: Украина, Киев

Репутация: нет
Всего: нет

так картинка в файл то не выбрасывается а просто передается в поток.

poland

Дата 11.11.2005, 13:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 14.6.2005

Репутация: нет
Всего: нет

ИМХО TMemoryStream не прокатит, на HDD надо писать

sinij

Дата 11.11.2005, 13:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 5.10.2005
Где: Украина, Киев

Репутация: нет
Всего: нет

почему ? Вот примерчик на Делфи как то делают

Код


try
Jpeg1.CompressionQuality := 50;
Jpeg1.Assign(Bitmap);
Stream := TMemoryStream.Create;
Jpeg1.SaveToStream (Stream);
Stream.Position := 0;
Response.ContentType := 'image/jpeg';
Response.ContentStream := Stream;
Response.SendResponse;
Finally
Jpeg1.Free;
Bitmap.Free;
end;

Только мне нужно чтобы еще и текст можно было написать.

Это сообщение отредактировал(а) sinij - 11.11.2005, 13:29

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »