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

Вниз

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, но он на си : ( помогите! : )

---

← →
JibSkeart   (2003-02-28 10:41) [11]

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 сдеся типа неизвестного типа

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

---

← →
Странник   (2003-02-28 11:09) [12]

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

---

← →
hogo   (2003-03-04 15:33) [13]

> 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, я незнаю как привязать к нему свою процедуру.

---

← →
hogo   (2003-03-04 15:37) [14]

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

---

← →
Hogo   (2003-03-14 12:27) [15]

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

---

Страницы: 1 вся ветка

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

Наверх

Память: 0.47 MB
Время: 0.007 c