Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Вниз

Получение из интернет странички и обработка ее к КОДЕ 


Sin   (2002-03-07 14:02) [0]

Люди!
Пипл хай
Вопрос есть интересный
В общем, нужно получать страницу из интернет и обрабатывать е в HTML коде
Я вот сейчас пытаюсь использовать TWebBrowser и легко отображаю ее as-is
а вот в виде <html> этой же страницы добиться не могу :((
соотв. вопрос, КАК???
Заранее спасибо, буду рад любой идее
--> у меня для написания этого проекта осталось 6 часов 28 минут... 8(



Polevi   (2002-03-07 14:10) [1]

unit Unit2;

interface

uses ScktComp;

type
TCS=class(TClientSocket)
public
FFileName:string;
ResultString:string;
Processed:boolean;
constructor Create(AHost:string;AFile:string);reintroduce;
procedure SocketConnect(Sender: TObject; Socket: TCustomWinSocket);
procedure SocketRead(Sender: TObject; Socket: TCustomWinSocket);
procedure SocketDisconnect(Sender: TObject; Socket: TCustomWinSocket);
procedure SocketError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
end;


implementation



{ TCS }

constructor TCS.Create(AHost, AFile: string);
begin
inherited Create(nil);
Host:=AHost;
Port:=80;
FFileName:=AFile;
ResultString:="";
OnConnect:=SocketConnect;
OnRead:=SocketRead;
OnDisconnect:=SocketDisconnect;
OnError:=SocketError;
Processed:=true;
Active:=true;
end;

procedure TCS.SocketConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
Socket.SendText("GET "+FFileName+#13#10);
end;

procedure TCS.SocketDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
Processed:=false;
end;

procedure TCS.SocketError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode:=0;
Socket.Close;
Processed:=false;
end;

procedure TCS.SocketRead(Sender: TObject; Socket: TCustomWinSocket);
begin
ResultString:=ResultString+Socket.ReceiveText;
end;

end.


function TPoleviServer.GetURLSource(const AHost,
AFile: WideString): OleVariant;
begin
with TCS.Create(AHost,AFile) do
begin
while Processed do Application.ProcessMessages;
Result:=ResultString;
Free;
end;

end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.024 c
1-66932           Di_wind               2002-03-05 21:35  2002.03.21  
Время создания файла.


3-66734           gegc                  2002-02-20 09:37  2002.03.21  
Как и чем создать DBF чтобы он открывался в экселе и аксесе И чтобы руссие буквы были похожи на русские буквы? (BDE не предлагать!)


1-66931           Михаил123             2002-03-06 18:19  2002.03.21  
Как в Delphi сделать DLL с функциями возвращаемыми VOID


3-66735           DmitryPV              2002-02-20 14:24  2002.03.21  
Проблема с ч в SQL-запросе.


3-66783           andrey_m              2002-02-22 09:57  2002.03.21  
Работа с MS SQL Server