![]() |
Delphi+JAVA
У меня вопрос по Delphi:
Условие: Юзер не должен увидеть как это происходит. Помогите пожалуйста как это сделать. Киньте примеры -исходники если есть. :o Если это поможет - могу скинуть этот скрипт шифровальщик. Только помогите!!! |
1. Выбрать несколько строк из файла: Copy, Delete, Pos. Если не знаешь как это делать Поиск по форуму, обсуждали не раз.
2. Тык В гугле вводишь Использование JavaScript в Delphi и самая 1 строка. P.s. И не путай Java и JavaScript. |
подключил функцию из этой статьи. требует MSHTML_TLB.
Где этот компонент или модуль. На какой вкладке? |
В uses MSHTML
ПС опять же- взято из гугла, 2-ой результат. Напиши уже в саппорт гугла, чтобы разбанили. Цитата:
|
А за что забанили то?
|
подключил я в uses MSHTML, Теперь пишет что неизвестная переменная:
IHTMLDocument2 |
PHP код:
Если где то в другом месте юзаешь, то показывай код. P.s. Научись Гуглить. :rolleyes: |
спасибо.
тока нифига не получилось. весь вечер бился над этим. Можт кто выложит проектик готовый. Вот код кодирощика java script. Хочу закодировать строку: "Античат рулит" И вывести ее в memo1 Код HTML:
<body> <TABLE cellSpacing=0 cellPadding=0 width="98%" border=0> <TBODY> <TR> <TD vAlign=top align=left> <SCRIPT language=JavaScript> <!-- function generate() /* Generation of "Compilation" */ { code = document.pad.text.value; if (code) {setTimeout("compile()",1000);} } function compile() /* The "Compilation" */ { document.pad.text.value=''; compilation=escape(code); document.pad.text.value= "<script>\n<!--\ndocument. write(unescape(\""+compilation+"\")); \n//-->\n<\/script>"; } // --> </SCRIPT> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD width="100%"> <FORM name=pad method=post align="center"> <TEXTAREA style="WIDTH: 95%; BACKGROUND-COLOR: #ebebeb" name=text rows=11 cols=58></TEXTAREA> <BR> <INPUT onclick=generate() type=button value=Encrypt name=compileIt> </FORM> </TD> </TR> </TBODY> </TABLE> </TD></TR></TBODY></TABLE> </body> |
| Время: 18:20 |