Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.02.2011, 00:09   #1
jskorvin
Пользователь
 
Регистрация: 27.09.2010
Сообщений: 16
Вопрос Как перезаписать VStream в IdHTTPProxyServer

Доброго времени суток!
Понадобилось накидать простой проксик который резал бы (ну или заменял) некотрое содержимое на странице.

Путем гугления нашел IdHTTPProxyServer - подходит, но вот как отредактировать то что вернется?

на форме мемо и IdHTTPProxyServer
Код:
unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdContext, IdBaseComponent, IdComponent, IdCustomTCPServer,
  IdTCPServer, IdCmdTCPServer, IdHTTPProxyServer, IdHeaderList, StdCtrls;

type
  TForm1 = class(TForm)
    IdHTTPProxyServer1: TIdHTTPProxyServer;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure PXHTTPDocument(
      AContext: TIdHTTPProxyServerContext; var VStream: TStream);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  PX: TIdHTTPProxyServer;
  stream: TstringStream;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
begin

  stream:=TstringStream.Create;

PX:=TIdHTTPProxyServer.Create;
  PX.DefaultPort := 5000;
  PX.Bindings.DefaultPort := 5000;
  PX.OnHTTPDocument := PXHTTPDocument;
  PX.Active := True;

end;




procedure TForm1.PXHTTPDocument(
  AContext: TIdHTTPProxyServerContext; var VStream: TStream);
begin

stream.Clear;
stream.LoadFromStream(VStream);
memo1.Lines.Add(stream.DataString);



end;

end.
Гружу в стрим полученое содержимое и вывожу его в мемо вот так
Код:
stream.LoadFromStream(VStream);
memo1.Lines.Add(stream.DataString);
в stream содержится то что мне нужно отредактировать, допустим я его отредактировал, как перезаписать VStream?
У него нету LoadFromStream или assign, а на этом мои скудные познания заканчиватся
Да и смутные сомнения закрадываются что совсем не там я пытаюсь перезаписывать..
Вложения
Тип файла: rar prox.rar (87.1 Кб, 31 просмотров)

Последний раз редактировалось jskorvin; 25.02.2011 в 00:13.
jskorvin вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перезаписать файл werser Общие вопросы C/C++ 4 14.05.2010 00:27
IdHTTPProxyServer Лубышев Помощь студентам 2 20.12.2009 13:21
idhttpProxyServer ошибка fbus Работа с сетью в Delphi 1 27.05.2009 10:02
Обновлённый компонент IdHTTPProxyServer MindWork Работа с сетью в Delphi 0 08.04.2009 08:22
как перезаписать звуковой файл? Lkhasa Win Api 1 17.07.2008 12:57

Реклама для незарегистрированных, регистрация на форуме