[Gugle]

Доброго времени суток!

Работаю с XML. Вот функция:

читать дальше »

Код:

function addAttributeXML(fileName, nameElement, addAttribute, dataAttribute: String): Boolean;
var
  xmlParser, rootElement, str: Variant;
  i: Byte;
  MD5: String;

begin
  if not FileExists(fileName) then Exit;
  MD5 := GetMD5OfFile(fileName);
  
  try
    xmlParser := CreateOleObject('Microsoft.XMLDOM');
  except
    ShowExceptionMessage;
    Exit;
  end;
  xmlParser.async := False;
  xmlParser.load(fileName);
  rootElement:= xmlParser.getElementsByTagName(nameElement);
  for i := 0 to rootElement.length-1 do begin
    str := rootElement.item[i].getAttribute('attr');
    MsgBox(str, mbError, MB_OK);                          // Тут ошибка с приведением типов. Не могу разобраться без помощи.
    rootElement.item[i].setAttribute(addAttribute, dataAttribute);
  end;

  xmlParser.save(fileName);
  Result := (MD5 <> GetMD5OfFile(fileName));
end;

Помогите правильно привести типы.

[Sollar]

murlakatamenka, даже проще Page.Add('USERVERIFYPWD:', true);
хотя я наверное неточно выразился, надо просто скрыть

[LLIARK]

Подскажите плиз. как решить проблему
Собсна вот в чем дело.
Я скачал скрипт,всё работает нормально.
В скрипте есть такая строка

//SPLASH Screen procedure callplug(parentwnd: Integer; pluginname,funcname,param1,param2,param3,param4,param5,param6,param7,param8,param9,param10: PChar); external 'callplug@files:callnsis.dll stdcall'; procedure CreatSplash(); begin ExtractTemporaryFile('splash.bmp') // ExtractTemporaryFile('splash.wav') -звук во время появления сплэш скрина ExtractTemporaryFile('AdvSplash.dll') callplug(0,ExpandConstant('{tmp}\AdvSplash.dll'),'show','5000','2000','1500','-1',ExpandConstant('{tmp}\splash'),'','','','','') end;

мне надо чтоб splash.bmp был формата PNG
но когда я в скрипте вместо bmp переименовую в png и заменяю картинку на формат png (картинка уже другая) в папке с файлами.
то картинка попросту не появляется...
Что делать,как вместо bmp поставить png?

[valyok666]

LLIARK, Вот библиотека там пример есть
AdvSplash.dll вроде не поддерживает PNG

[LLIARK]

большое спасибо
но после появления картинки выскакивает

Runtime error

Could not call proc

[valyok666]

LLIARK, а вот это надо смотреть скрипт)надо старое от AdvSplash удалить)
кидай скрипт)

[LLIARK]

сможешь помочь если скрипт скину?))

я заменил старый код на этот

//SPLASH Screen procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload'; procedure InitializeWizard; begin ExtractTemporaryFile('Spalsh.png'); ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Spalsh.png',1000,3000,1000,0,255,False, $FFFFFF,10); end;

а AdvSplash больше негде в скрипте нету....

[valyok666]

LLIARK, давай сделаю токо попозже

[LLIARK]

Благодарочка заранее))

вот архив со всем http://depositfiles.com/files/wlzae9r1q
жду...))

[El Sanchez]

Работаю с XML. Вот функция: »

Gugle, если работаете с рестулсовским IDE, то на строке с MessageBox поставьте брейкпойнт (F5), запустите скрипт (F9). Выполнение приостановится и наведите курсор на переменную str. В подсказке отобразится значение str. На строку похоже?