Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 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.006 c
1-100256
yx
2003-03-18 19:02
2003.03.31
Иконка невизуального компонента.


6-100367
AlexandrK
2003-02-07 15:26
2003.03.31
Проблема в передаче АТ команд на сотовый, (Motorola timeport)


1-100270
.::D.e.M.o.N.i.X::.
2003-03-19 09:44
2003.03.31
Есть нестандартная ситуация (а мож и стандартная)


14-100398
Timber Wolf
2003-03-13 17:44
2003.03.31
А может у кого есть?


9-100137
Alek Aaz
2002-10-30 08:10
2003.03.31
Высшая математика.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский