webbrowser + image - Компоненты Delphi

wiskas · 29.03.2007, 17:49

Сталкнулся с такой проблемой, как мне в Webbrowser загрузить картинку, которая лежит в Tbitmap?
Облазил все и везде, но ничего ненашел. Подскажите пожалуйста.

(сохранение на диск, а потом загрузку её в HTML код не предлогать, мне нужно, чтоб она не сохранялась на диск, а грузилась сразу)

Заранее благадарен и спасибо. Если есть какието предложения пишите, стучите (icq= 2717-четыре-9989).

wiskas · 30.03.2007, 02:29

сорри что еще раз пишу вподрят, но кто может помочь? неужели никому не под силу?

Alar · 30.03.2007, 02:43

Опять, не ясная постановка задачи.
Можно указать в навигации адрес картинки и картинка загрузиться. Не сохраняя на диск картинку, не получиться.

Webbrowser - это ишак в чистом виде. работайте с ним, как с ишаком.

Цитата:

Сообщение от wiskas

сорри что еще раз пишу вподрят, но кто может помочь? неужели никому не под силу?

Поднятие темы не запрещается, но приветсвуется уточнение, разъяснение поставленного вопроса.

wiskas · 30.03.2007, 11:56

вот пояснение, более подробнее обьяснять нечего -
код программы:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
CreateNewPage: TButton;
IntupImage: TButton;
Image1: TImage;
procedure CreateNewPageClick(Sender: TObject);
procedure IntupImageClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.CreateNewPageClick(Sender: TObject);
var s2,s3,s4,s1:string;

begin

WebBrowser1.Navigate('about:blank') ;
while WebBrowser1.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages;
if Assigned(WebBrowser1.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
s4:=s4+'<html>';
s4:=s4+'<body style="margin:0">';
s4:=s4+'<img src="c:\2.bmp" name=MyPicture>'; // вот эта картинка
s4:=s4+'</body>';
s4:=s4+'</html>';
sl.Text := s4;
sl.SaveToStream(ms);
ms.Seek(0, 0);
(WebBrowser1.Document as IPersistStreamInit).Load(TStreamAda pter.Create(ms));
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;
procedure TForm1.IntupImageClick(Sender: TObject);
begin
image1.Picture.Bitmap.Canvas.LineTo (100,100);
{тут намного больше операций, но чтоб не зосорять форум, я их вырезал и ограничелся одной}

//а вот тут нада написать чтото чтоб картинка Image1 нарисовалась вместо MyPicture
end;
end.

при нажатии на кнопку CreateNewPage создается в webbrowser1 страничка, на которой лежит картинка под именем MyPicture, мне нада чтоб при последующем нажатии на кнопку IntupImage нажатии, изображение в ХТМЛ под именем MyPicture заменялось на Imgage1. Вроде тут все понятно.

П.С. У WebBrowser есть свойство WebBrowser1.Brush.bitmap, но я негде ненашел как с ним работать а у самого ничего невыходит. Но думаю что нада через него ковырять. Спасибо за ответы всем.

Дополнено позже: Вот я еще так подумал, возможно ли на страничку например присвоить ActiveX обьнект, например Paint и залить просто в него картинку? Этот вариант тоже подходит, но с ActiveX я вжизни несталкивался, и в нем я баран бараном, вот подскажите чтонибудь, желательно с небольшим кодом программы.

wiskas · 30.03.2007, 15:33

ну вот более подробное описание того, что я хочу осущиствить, помогите ктонибудь.

wiskas · 30.03.2007, 19:02

Я так подумал, картинку ж можно сохранить в память, а вот как её загрузить из памяти в webbrowser и чтобы она отображалась - незнаю - незнаю, подскажите пожалуйста

29.03.2007, 17:49	#1
wiskas Пользователь Регистрация: 21.02.2007 Сообщений: 26	webbrowser + image Сталкнулся с такой проблемой, как мне в Webbrowser загрузить картинку, которая лежит в Tbitmap? Облазил все и везде, но ничего ненашел. Подскажите пожалуйста. (сохранение на диск, а потом загрузку её в HTML код не предлогать, мне нужно, чтоб она не сохранялась на диск, а грузилась сразу) Заранее благадарен и спасибо. Если есть какието предложения пишите, стучите (icq= 2717-четыре-9989).

30.03.2007, 11:56	#4
wiskas Пользователь Регистрация: 21.02.2007 Сообщений: 26	вот пояснение, более подробнее обьяснять нечего - код программы: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, OleCtrls, SHDocVw; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; CreateNewPage: TButton; IntupImage: TButton; Image1: TImage; procedure CreateNewPageClick(Sender: TObject); procedure IntupImageClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R .DFM} procedure TForm1.CreateNewPageClick(Sender: TObject); var s2,s3,s4,s1:string; begin WebBrowser1.Navigate('about:blank') ; while WebBrowser1.ReadyState < READYSTATE_INTERACTIVE do Application.ProcessMessages; if Assigned(WebBrowser1.Document) then begin sl := TStringList.Create; try ms := TMemoryStream.Create; try s4:=s4+'<html>'; s4:=s4+'<body style="margin:0">'; s4:=s4+'<img src="c:\2.bmp" name=MyPicture>'; // вот эта картинка s4:=s4+'</body>'; s4:=s4+'</html>'; sl.Text := s4; sl.SaveToStream(ms); ms.Seek(0, 0); (WebBrowser1.Document as IPersistStreamInit).Load(TStreamAda pter.Create(ms)); finally ms.Free; end; finally sl.Free; end; end; end; procedure TForm1.IntupImageClick(Sender: TObject); begin image1.Picture.Bitmap.Canvas.LineTo (100,100); {тут намного больше операций, но чтоб не зосорять форум, я их вырезал и ограничелся одной} //а вот тут нада написать чтото чтоб картинка Image1 нарисовалась вместо MyPicture end; end. при нажатии на кнопку CreateNewPage создается в webbrowser1 страничка, на которой лежит картинка под именем MyPicture, мне нада чтоб при последующем нажатии на кнопку IntupImage нажатии, изображение в ХТМЛ под именем MyPicture заменялось на Imgage1. Вроде тут все понятно. П.С. У WebBrowser есть свойство WebBrowser1.Brush.bitmap, но я негде ненашел как с ним работать а у самого ничего невыходит. Но думаю что нада через него ковырять. Спасибо за ответы всем. Дополнено позже: Вот я еще так подумал, возможно ли на страничку например присвоить ActiveX обьнект, например Paint и залить просто в него картинку? Этот вариант тоже подходит, но с ActiveX я вжизни несталкивался, и в нем я баран бараном, вот подскажите чтонибудь, желательно с небольшим кодом программы. Последний раз редактировалось wiskas; 30.03.2007 в 15:33.*

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
NPG Image	Altera	Компоненты Delphi	2	21.08.2008 12:30
image	Черничный	Общие вопросы Delphi	2	25.06.2008 16:09
PNG в Image	Grey Fox	Помощь студентам	1	02.08.2007 12:24
прозрачный Image	Roof	Помощь студентам	8	27.07.2007 12:15
image	Elm0	Свободное общение	4	21.06.2007 17:34

30.03.2007, 02:29	#2
wiskas Пользователь Регистрация: 21.02.2007 Сообщений: 26	сорри что еще раз пишу вподрят, но кто может помочь? неужели никому не под силу?

30.03.2007, 15:33	#5
wiskas Пользователь Регистрация: 21.02.2007 Сообщений: 26	ну вот более подробное описание того, что я хочу осущиствить, помогите ктонибудь.

30.03.2007, 19:02	#6
wiskas Пользователь Регистрация: 21.02.2007 Сообщений: 26	Я так подумал, картинку ж можно сохранить в память, а вот как её загрузить из памяти в webbrowser и чтобы она отображалась - незнаю - незнаю, подскажите пожалуйста