Proxy

← →
Hogo © (2003-02-22 13:29) [0]

Здравствуйте, вот нашел прокси но он на С++ мне очень надо портировать его в дельфи сам я чего-то не справляюсь вот ссылка на архив http://www.algo-rithm.com/downloads/epm.0.1.2.zip помогите, очень надо.
Насколько я разобрался все используемые компоненты есть и в Дельфи.

← →
JibSkeart © (2003-02-22 14:12) [1]

А В чем конкретно ??

← →
hogo © (2003-02-22 14:18) [2]

> JibSkeart © (22.02.03 14:12)
> А В чем конкретно ??

Что в чем?

← →
Ketmar © (2003-02-22 14:28) [3]

на ritlabs есть прокси на delphi.

Satanas Nobiscum! 22-Feb-XXXVIII A.S.

← →
hogo © (2003-02-22 14:30) [4]

Я конечно сам еще буду пытаться перевести это все в дельфи если переведу выложу (только у авторов спрошу).

← →
JibSkeart © (2003-02-22 14:54) [5]

Ну всиысле тебе что то одно надо перевести
на делфи или полностью ?

← →
hogo © (2003-02-23 13:31) [6]

> JibSkeart © (22.02.03 14:54)
> Ну всиысле тебе что то одно надо перевести
> на делфи или полностью ?

Надо перевести только вот это:
MyTraffic.cpp
MyTraffic.h
TMyProxy.cpp
TMyProxy.h

В MyTraffic.h мне непонятны только две строки вот в этих процедурах:
virtual void __fastcall DataReceived(void* ABuffer, const int AByteCount) { SentBytes += AByteCount; CurrentAddonSent += AByteCount; TIdConnectionIntercept::DataReceived(ABuffer, AByteCount); } procedure TMyTraffic.DataReceived; begin SentBytes:=SentBytes+AByteCount; CurrentAddonSent:=CurrentAddonSent+AByteCount; // Здесь выдает ошибку // TIdConnectionIntercept.DataReceived(ABuffer, AByteCount); end; virtual void __fastcall DataSent(void *ABuffer, const int AByteCount) { RecvBytes += AByteCount; CurrentAddonRecv += AByteCount; TIdConnectionIntercept::DataSent(ABuffer, AByteCount); } procedure TMyTraffic.DataSent; begin RecvBytes:=RecvBytes+AByteCount; CurrentAddonRecv:=CurrentAddonRecv+AByteCount; // Здесь выдает ошибку // TIdConnectionIntercept.DataSent(ABuffer, AByteCount); end;

← →
hogo © (2003-02-24 21:42) [7]

Нда...
ПОхоже тупик :(

← →
nikkie © (2003-02-24 21:52) [8]

inherited

← →
Hogo © (2003-02-28 06:50) [9]

Люди ну помогите пожалуйста!

← →
фыва:) (2003-02-28 09:33) [10]

Нашёл windows, но он на си : ( помогите! : )

virtual void __fastcall DataReceived(void* ABuffer, const int AByteCount)
{
SentBytes += AByteCount;
CurrentAddonSent += AByteCount;
TIdConnectionIntercept::DataReceived(ABuffer, AByteCount);
}
procedure TMyTraffic.DataReceived;
begin
SentBytes:=SentBytes+AByteCount;
CurrentAddonSent:=CurrentAddonSent+AByteCount;
// Здесь выдает ошибку
// TIdConnectionIntercept.DataReceived(ABuffer, AByteCount);
end;

ABuffer у тебя какого типа ?? :)
void* ABuffer сдеся типа неизвестного типа

да и что за ошибку он дает ?
что кричит ?...

Дык это ж static метод!
TIdConnectionIntercept::DataSent(ABuffer, AByteCount);

> JibSkeart © (28.02.03 10:41)
> да и что за ошибку он дает ?
> что кричит ?...
> Странник © (28.02.03 11:09)
> Дык это ж static метод!
> TIdConnectionIntercept::DataSent(ABuffer, AByteCount);

Да я ужу узнал что это статичный вызов, с этим модулем я справился MyTraffic.h.
Щас повис на:
NewProxy.OnConnect:=fOnConnect;
NewProxy.OnDisconnect:=fOnDisconnect;
в модуле
MyTraffic.cpp
MyTraffic.h
здесь событие имеет тип TIdServerThreadEvent, я незнаю как привязать к нему свою процедуру.

> JibSkeart
> ABuffer у тебя какого типа ?? :)
> void* ABuffer сдеся типа неизвестного типа
procedure DataReceived(var ABuffer; AByteCount: integer);

Никто не знает?

Proxy Найти похожие ветки