[wrun]

Добрый день!

Никак не могу сообразить как сделать событие Результат закачки, но в консольном приложении. Раньше не сталкивался с подобным.
На данный момент ошибка:
access violation as 0x7c90e8e5: write of address 0x00030ff8. Proccess Stopped.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

program WSms; {$APPTYPE CONSOLE}   uses   SysUtils,   JvComponentBase,   JvUrlListGrabber,   JvUrlGrabbers,   JvTypes,   Classes;   type   TObjectHandler = class(TObject)     procedure HttpGrabberDoneStream(Sender: TObject; Stream: TStream;       StreamSize: Integer; Url: string);   end;   var   tels, msg: string;   HttpGrabber: TJvHttpUrlGrabber;   FObjectEvent: TObjectHandler;   ObjectEvent: TObjectHandler;   procedure TObjectHandler.HttpGrabberDoneStream(Sender: TObject;   Stream: TStream; StreamSize: Integer; Url: string); begin   Writeln('Done:');   Readln; end;   begin   try     if true then     begin       FObjectEvent := TObjectHandler.Create;       HttpGrabber.ProxyMode := pmManual;       HttpGrabber.ProxyAddresses := 'proxy:8080';       HttpGrabber.ProxyUserName := 'login';       HttpGrabber.ProxyPassword := 'Pass';       HttpGrabber.OutputMode := omStream;       HttpGrabber.Url := 'http://url.ru';       <b>HttpGrabber.OnDoneStream := FObjectEvent.HttpGrabberDoneStream;</b>       HttpGrabber.Start;     end;     Writeln('Main:');     Readln;   except     on E: Exception do     begin       Writeln(E.ClassName, ': ', E.Message);       Readln;     end;   end;   end.

[dr. F.I.N.]

Да так же как и в написании компонента:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

type   TSomeEvent = procedure <b><font color="Red">(SomeParams: ParamsType)</font></b> <u>of Object</u>;     TMyComp = class (ParentClass)   private     FSomeEvent: TSomeEvent;     procedure SomeProc;   public     property OnSomeEvent: TSomeEvent read FOnEvent write FOnSomeEvent;   end;   var   Comp: TMyComp;   procedure  MyEvent<b><font color="red">(SomeParams: ParamsType)</font></b>; begin   ...   Blah-Blah-Blah   ... end;   begin   Comp := TMyComp.Create;   <b>Comp.OnSomeEvent := MyEvent;</b>   .......   Blah-blah-blah   ........   Comp.Free; end.

Что подчеркнуто - не уверен...не на чем проверить А мозг не варит...

[NumLock]

HttpGrabber не создан!

[wrun]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

program WSms; {$APPTYPE CONSOLE}   uses   SysUtils,   JvComponentBase,   JvUrlListGrabber,   JvUrlGrabbers,   JvTypes,   Classes;   type   TObjectHandler = class(TObject)     procedure HttpGrabberDoneStream(Sender: TObject; Stream: TStream;       StreamSize: Integer; Url: string);   end;   var   tels, msg: string;   HttpGrabber: TJvHttpUrlGrabber;   FObjectEvent: TObjectHandler;   ObjectEvent: TObjectHandler;   procedure TObjectHandler.HttpGrabberDoneStream(Sender: TObject;   Stream: TStream; StreamSize: Integer; Url: string); begin   Writeln('Done:');   Readln; end;   begin   try     if true then     begin       <b>HttpGrabber := TJvHttpUrlGrabber.Create(nil,'google.com',nil);</b>       FObjectEvent := TObjectHandler.Create;       HttpGrabber.ProxyMode := pmManual;       HttpGrabber.ProxyAddresses := 'proxy:8080';       HttpGrabber.ProxyUserName := 'login';       HttpGrabber.ProxyPassword := 'Pass';       HttpGrabber.OutputMode := omStream;       HttpGrabber.Url := 'http://url.ru';       <b>HttpGrabber.OnDoneStream := FObjectEvent.HttpGrabberDoneStream;</b>       HttpGrabber.Start;     end;     Writeln('Main:');     Readln;   except     on E: Exception do     begin       Writeln(E.ClassName, ': ', E.Message);       Readln;     end;   end;   end.

Создание HttpGrabber сделал. Вроде правильно.

По остальному никак не пойму (

[wrun]

Вроде проблему решил, кому пригодится - выкладываю код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64

program WSms; {$APPTYPE CONSOLE}   uses   SysUtils,   JvComponentBase,   JvUrlListGrabber,   JvUrlGrabbers,   JvTypes,   Classes;   type   TObjectHandler = class(TObject)     procedure HttpGrabberDoneStream(Sender: TObject; Stream: TStream; StreamSize: Integer; Url: string);     procedure HttpGrabberError(Sender: TObject; ErrorMsg: string);   end;   var   tels, msg: string;   HttpGrabber: TJvHttpUrlGrabber;   prop: TJvCustomUrlGrabberDefaultProperties;   FObjectEvent: TObjectHandler;   procedure TObjectHandler.HttpGrabberDoneStream(Sender: TObject;   Stream: TStream; StreamSize: Integer; Url: string); begin   Writeln('Done:');   Readln; end;   procedure TObjectHandler.HttpGrabberError(Sender: TObject; ErrorMsg: string); begin   Writeln('Error:');   Readln; end;     begin   try     if true then     begin       <b>prop := TJvCustomUrlGrabberDefaultProperties.Create(nil);</b>       <b>HttpGrabber := TJvHttpUrlGrabber.Create(nil,'google.com',prop);</b>       FObjectEvent := TObjectHandler.Create;       HttpGrabber.ProxyMode := pmManual;       HttpGrabber.ProxyAddresses := 'proxy:8080';       HttpGrabber.ProxyUserName := 'login';       HttpGrabber.ProxyPassword := 'Pass';       HttpGrabber.OutputMode := omStream;       HttpGrabber.Url := 'http://url.ru';       HttpGrabber.OnDoneStream := FObjectEvent.HttpGrabberDoneStream;       HttpGrabber.Start;     end;     Writeln('Main:');     //Readln;   except     on E: Exception do     begin       Writeln(E.ClassName, ': ', E.Message);       Readln;     end;   end;   end.

Но теперь вопрос, как сделать что бы не закрывалось приложение до результата загрузки?

[wrun]

Кто-нибудь знает как сделать ожидание консольного приложения, что-бы оно дожидалось результата загрузки:
HttpGrabber.OnDoneStream := FObjectEvent.HttpGrabberDoneStream;
или
HttpGrabber.OnError := FObjectEvent.HttpGrabberError;

[M.A.D.M.A.N.]

while (condition) do ...
не?
Да и потом, события - это procedure of object надо объект мутить.