Здавствуйте Дамы и Господа!!!
Вопрос по WebBrowser-у:
"Замена исходных изображений в WebBrowser-е на свои с последующим сохранением изменений".
Цель: Загружаем страницу в WB, далее после того как она загрузится, заменяем в ней все ссылки на рисунки(место хранения рисунков) своими ссылками.
Проблемы:
После такой замены если сохранить эту страницу на диск, то обнаружится, что вместо измененных ссылок на изображения будут исходные.
Пробовал переводить WB в режим редактирования и изменять ссылки(Src="") на свои - получалось, но проблема в том, что данная схема работает не на всех компах.
Прошу помочь!!!
Вот функция ->
*********************************************************
function SaveImages(WB : TWebBrowser; ID : integer; path : String) : String;
var
k, p: Integer;
Source,ext: string;
sr : Variant;
begin
for k := 0 to WB.OleObject.Document.Images.Length - 1 do
begin
Source := WB.OleObject.Document.Images.Item(k).Src;
p := LastDelimiter('.', Source);
ext := UpperCase(Copy(Source, p + 1, Length(Source)));
if (ext = 'GIF') or (ext = 'JPG') or (ext = 'BMP') then
begin
sr := '';
sr := 'data\Images\' + IntToStr(ID) + '_' + IntToStr(k) + '.' + ext;
WB.OleObject.Document.Images.Item(k).Src := sr;
end;
end;
end;
*********************************************************
