Да кстати,юзай www.delphisources.ru Тру сайт по Delphi
Есть 2 варианта. 1.Использовать TWebBrowser с параметром visible:=false; тогда можно будет получить исходный код. 2.Подключиться к серверу сокетами и получить хтмл. Код печатаю,потом добавлю сюда. Вариант 1 Uses ActiveX; ... function GetHTML(WebBrowser: TWebBrowser; ACode: TStrings): Boolean; var ps: IPersistStreamInit; ss: TStringStream; sa: IStream; s: string; begin ps := WebBrowser.Document as IPersistStreamInit; s := ''; ss := TStringStream.Create(s); try sa := TStreamAdapter.Create(ss, soReference) as IStream; Result := Succeeded(ps.Save(sa, True)); if Result then ACode.Add(ss.Datastring); finally ss.Free; end; end; </b><p><b>Функция для получения html кода из tWebBrowser. Использование:пишем в каком либо обработчике GetHTML($Имя компонента tWebBrowser,Массив строк *(обычно Memo1 или другое название компонента.)*); *Примечание для работы функи нужен tWebBrowser на форме,если не хочешь чтобы его было видно выставляем у него свойство Visible в false. Вариант 2 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw,ActiveX,ScktComp; type THtmlRequest = class(TThread) private FUrl: string; html: string; protected procedure Execute; override; public constructor Create(url: string); procedure Sync; end; var Form46: TForm46; implementation {$R *.dfm} constructor THtmlRequest.Create(url: string); begin inherited Create(true); FUrl := url; Resume; end; procedure THtmlRequest.Execute; var sock: TClientSocket; s: string; i: integer; begin sock := TClientSocket.Create(nil); sock.ClientType := ctBlocking; sock.Port := 80; i := Pos('://', FUrl); if i > 0 then s := Copy(FUrl, i+3, Length(FUrl)) else s := FUrl; i := Pos('/', s); if i > 0 then s := Copy(s, 1, i-1) else s := FUrl; sock.Host := s; try sock.Active := true; s := 'GET ' + FUrl + ' HTTP/1.0' + #10 + 'Accept: text/html' + #10 + //'Referer: ' + FUrl + #10 + 'Accept-Language: ru_RU,ru' + #10#10; sock.Socket.SendText(s); html := ''; i := 0; repeat try s := sock.Socket.ReceiveText; except Break; end; if s = '' then Inc(i) else begin html := html + s; i := 0; end; until i = 1024; except html := 'Connection error'; end; Synchronize(Sync); sock.Free; Terminate; end; procedure THtmlRequest.Sync; begin Form46.Memo1.Text := html; end; Автор кода 2 варианта не я :D Этот вариант более сложен в понимании.Для работы на форме нужно разместить на форме компонент Memo,заменить Form46 везде на имя своей формы,создать обработчик событий и в нём написать " THtmlRequest.Create('http://www.google.com/');" Как ты понял параметр это адрес страницы.
Точно не знаю ибо много с idhttp не работал но попробуй параметр request->CharSet в object inspector
Скелет редактировать нужно.Остальное методом тыка :D
какой х*й ему плюсует? Я плюс тыкнул О_о
Ну копирайты там в проге есть х) а так прогу писал йа,и она тока под 1.3.4
Прямая цитата: Автор нупь на пвп сервах есть 10ый ранг (ЛОЛ)
А никак вставить html который будет передавать постом данные для реги на скрипт ?
Фэйл исправлен,можно в топку :D
После обычной компиляции и билде (аля правой кнопочкой по проекту) программы,на моём компьютере программа запускается,но на других эррор о том что не найден пакет :D. Использую:Embarcadero Rad Studio 2010>C++ Builder Вопрос:как правильно скомпилировать ?xD
Никогда Когда вы в последний раз юзали IDA O_o
Незнаю,я оставил дефолтный и так нормально xD PS Чтото мы ушли от темы...
Согласен,булка хоть и без мего тру дизов,но стабильнее+ничуть не хуже ыпыбы
SQL error: Access denied for user 'root'@'localhost' (using password: YES) Неверный пароль к базе :D
Эм, консольку не я сделал, а Astrel... Тю, вам батников мало? sPCKTool.exe видимо сделал Astrel (батник переделанный в ехе, который в зависимости от choice пункта выполняет ту или иную консольную строчку), а сам "update.exe" (ведь так он был в оригинале?хДД) был взят с одного из патчей сервера, начинающегося с буквы "h"?? ... или я не права?:D ... в батник можно много авторских прав прописать)) Astrel, ничего личного... Что ты курил?) Я просто взял spck рони и сам написал батник, а такой апдейт как на химере у меня был еще раньше. И то очень давно и вообще даже его выкладывали давно взятого из моего сервера. Ололо с каких пор астрел подался в программисты ?=).
Вот пример решения из интернета(костяк). Это как я понял шарп,с ним я ещё не совсем в ладах =). А из делфи попробую перевести.
Можно,код сюды Оо
+ сег,натолкнуло на ещё 1 идейку (= Чат в отдельном окне? О.о Kenpachi™ и StAlKeR6669 Спасибо Вам за ваш труд ) Нет,сталк знает о чём я х) //upd [img]xDD
+ сег,натолкнуло на ещё 1 идейку (=
[img] Скачать Narod.Ru Автор программы:dung059 Автор перевода:Themazzahaka\Mazzahaka
Имена участников (разделяйте запятой).
