Как вставить код HTM в DELPHI - Работа с сетью в Delphi

rosljk · 30.04.2012, 13:35

Вот код:

Код:

</head>
<!--
Skype 'Мой статус' button
http://www.skype.com/go/skypebuttons
-->
<script type="text/javascript" src="http://download.skype.com/share/skypebuttons/js/skypeCheck.js"></script>
<a href="skype:r0sljk?call"><img src="http://mystatus.skype.com/balloon/r0sljk" style="border: none;" width="150" height="60" alt="Мой статус" /></a>

<body>
</body>
</html>

Это нужно вставить в ФОРМУ Delphi.

Человек_Борща · 30.04.2012, 13:44

никак.
Веб програмимрроование и системное програмирование - это земля и небо.

Изврат конечно, но..
Делай html страницу в папке с программой, и грузи её в WebBrowser компонент.

По умному же, я бы кинул эту страницу в инет, и при результте js скрипта писал бы текст, а программой вызавал эту страницу и брал результат.

=master= · 30.04.2012, 14:00

Зачем тут страница в инете, она уже есть.

Получить статус у скайпа проблем нет, а вызвать окно скайпа опять таки страница не нужна, через шел пара пустяков.

BDA · 30.04.2012, 17:16

Сейчас проверил - достаточно скачивать картинку по адресу http://mystatus.skype.com/balloon/r0sljk. Она правильно отображает оффлайн или онлайн вы. Способ загрузки картинки в TImage смотрите в нашей старой теме

rosljk · 30.04.2012, 17:56

Я нашол хорошый ответ на свой вопрос ВОТ ОН:http://devdelphi.ru/?p=744

Вот смотрита Я должен так вставлять картинку

Код:

tmp := utf8toansi(strpage);
    tmp := copy(tmp, pos('<a href="http://mystatus.skype.com/balloon/r0sljk"><img src="', tmp) +
 length('<a href="http://mystatus.skype.com/balloon/r0sljk"><img src="'),
 length(tmp) - pos('<a href="http://mystatus.skype.com/balloon/r0sljk"><img src="', tmp) - 
length('<a href="http://mystatus.skype.com/balloon/r0sljk"><img src="'));
    img := copy(tmp, 1, pos('" alt="', tmp) - 1);

BDA · 30.04.2012, 18:44

Нет, вот так:

Код:

LoadImage('http://mystatus.skype.com/balloon/r0sljk');
...
procedure TForm1.LoadImage(url: string);
var
  memStream: TMemoryStream;
  png: TPNGObject;
  strStream: string;
begin
  memStream := TMemoryStream.Create;
  strStream := idhttp1.Get(url);
  memStream.Write(strStream[1], Length(strStream));
  memStream.Position := 0;
  png := TPNGObject.Create;
  png.LoadFromStream(memStream);
  Image1.Picture.Assign(png);
  memStream.Free;
  png.Free;
end;

rosljk · 30.04.2012, 19:00

А это к чему относится:

Код:

LoadImage('http://mystatus.skype.com/balloon/r0sljk');

BDA · 30.04.2012, 19:02

Это нужно засунуть туда, откуда хочется вызвать получение статуса.

rosljk · 30.04.2012, 19:19

Тоисть я на Image ишу

Код:

LoadImage('http://mystatus.skype.com/balloon/r0sljk');

или

Код:

procedure TForm1.LoadImage(url: string);
var
  memStream: TMemoryStream;
  png: TPNGObject;
  strStream: string;
begin
  memStream := TMemoryStream.Create;
  strStream := idhttp1.Get(url);
  memStream.Write(strStream[1], Length(strStream));
  memStream.Position := 0;
  png := TPNGObject.Create;
  png.LoadFromStream(memStream);
  Image1.Picture.Assign(png);
  memStream.Free;
  png.Free;
end;

BDA · 30.04.2012, 19:21

По-моему, вы не так поняли.

Код:

procedure TForm1.LoadImage(url: string);
var
  memStream: TMemoryStream;
  png: TPNGObject;
  strStream: string;
begin
  memStream := TMemoryStream.Create;
  strStream := idhttp1.Get(url);
  memStream.Write(strStream[1], Length(strStream));
  memStream.Position := 0;
  png := TPNGObject.Create;
  png.LoadFromStream(memStream);
  Image1.Picture.Assign(png);
  memStream.Free;
  png.Free;
end;

Эта процедура загрузит в image картинку в png формате по заданному url.

Код:

LoadImage('http://mystatus.skype.com/balloon/r0sljk');

Это можно написать в событии OnCreate формы или в событии OnClick какой-либо кнопки, чтобы загрузить в image статус.

30.04.2012, 13:44	#2
Человек_Борща Старожил Регистрация: 30.12.2009 Сообщений: 11,426	никак. Веб програмимрроование и системное програмирование - это земля и небо. Изврат конечно, но.. Делай html страницу в папке с программой, и грузи её в WebBrowser компонент. По умному же, я бы кинул эту страницу в инет, и при результте js скрипта писал бы текст, а программой вызавал эту страницу и брал результат. Последний раз редактировалось Человек_Борща; 30.04.2012 в 13:46.

30.04.2012, 17:16	#4
BDA МегаМодератор СуперМодератор Регистрация: 09.11.2010 Сообщений: 7,291	Сейчас проверил - достаточно скачивать картинку по адресу http://mystatus.skype.com/balloon/r0sljk. Она правильно отображает оффлайн или онлайн вы. Способ загрузки картинки в TImage смотрите в нашей старой теме Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

30.04.2012, 19:00	#7
rosljk Пользователь Регистрация: 11.04.2012 Сообщений: 83	А это к чему относится: Код: `LoadImage('http://mystatus.skype.com/balloon/r0sljk');`

30.04.2012, 19:02	#8
BDA МегаМодератор СуперМодератор Регистрация: 09.11.2010 Сообщений: 7,291	Это нужно засунуть туда, откуда хочется вызвать получение статуса. Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

30.04.2012, 19:21	#10
BDA МегаМодератор СуперМодератор Регистрация: 09.11.2010 Сообщений: 7,291	По-моему, вы не так поняли. Код: `procedure TForm1.LoadImage(url: string); var memStream: TMemoryStream; png: TPNGObject; strStream: string; begin memStream := TMemoryStream.Create; strStream := idhttp1.Get(url); memStream.Write(strStream[1], Length(strStream)); memStream.Position := 0; png := TPNGObject.Create; png.LoadFromStream(memStream); Image1.Picture.Assign(png); memStream.Free; png.Free; end;` Эта процедура загрузит в image картинку в png формате по заданному url. Код: `LoadImage('http://mystatus.skype.com/balloon/r0sljk');` Это можно написать в событии OnCreate формы или в событии OnClick какой-либо кнопки, чтобы загрузить в image статус. Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

30.04.2012, 14:00	#3
=master= Форумчанин Регистрация: 26.03.2012 Сообщений: 665	Зачем тут страница в инете, она уже есть. Получить статус у скайпа проблем нет, а вызвать окно скайпа опять таки страница не нужна, через шел пара пустяков.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
в движке в файлах .htm специальный код	goluzov	PHP	1	18.04.2012 12:00
Как можно вставить код C++ в Delphi 7	Владислав	Общие вопросы Delphi	7	20.03.2012 20:05
Делфи. как правильно вставить код в код?	Кушманский	Помощь студентам	13	18.03.2012 20:06
как вставить код программы в Delphi что бы она работала?	Porter_37	Общие вопросы Delphi	1	26.05.2011 21:20
вставки htm-кода в php-код	dimonnnn	PHP	2	07.08.2010 18:29