Форум: "Прочее";
Текущий архив: 2007.10.07;
Скачать: [xml.tar.bz2];
ВнизКак (Кто сможет?) перевести данный код с Delphi на С++ Найти похожие ветки
← →
С.Толик (2007-09-05 19:35) [0]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, TrafInsp_TLB, ActiveX, ExtCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Memo1: TMemo;
RadioGroup1: TRadioGroup;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
GroupBox2: TGroupBox;
Summ: TEdit;
Label1: TLabel;
BitBtn1: TBitBtn;
GroupBox3: TGroupBox;
IP: TEdit;
Label2: TLabel;
Label3: TLabel;
Password: TEdit;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1 : TForm1;
FService : ITrafInspAdmin;
UList : OleVariant;
User : OleVariant;
UAttr : OleVariant;
UState : OleVariant;
Cash0 : OleVariant;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
A : Cardinal;
ips: String;
Passwords: String;
GUID : String;
Name : String;
begin
Memo1.Clear;
CoInitialize(nil);
Ips:=IP.Text;
Passwords:=Password.Text;
FService:=CoTrafInspAdmin.CreateRemote(ips);
Try
FService.APILogon(passwords);
Except
End;
UList:=FService.APIGetBillProp(APIObjectTypeUser,"");
if not VarIsArray(UList) then ; //Error
For A:= VarArrayLowBound(UList, 1) to VarArrayHighBound(UList, 1) do
Begin
User:= UList[A];
GUID:= User[1];
UAttr := FService.APIGetAttr(3, GUID, User_IPAddr);
UState:= FService.APIGetUserState(GUID);
Name:= UState[0];
Memo1.Lines.Add(Name);
End;
FService:=Nil;
CoUninitialize;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
A : Cardinal;
ips: String;
Passwords: String;
GUID : String;
Name : String;
begin
CoInitialize(nil);
Ips:=IP.Text;
Passwords:=Password.Text;
FService:=CoTrafInspAdmin.CreateRemote(ips);
Try
FService.APILogon(passwords);
Except
End;
UList:=FService.APIGetBillProp(APIObjectTypeUser,"");
if not VarIsArray(UList) then ; //Error
For A:= VarArrayLowBound(UList, 1) to VarArrayHighBound(UList, 1) do
Begin
User:= UList[A];
GUID:= User[1];
UAttr := FService.APIGetAttr(3, GUID, User_IPAddr);
UState:= FService.APIGetUserState(GUID);
Name:= UState[0];
FService.APISetUserState(GUID, Cash0+StrToFloat(Summ.text), -1, "Script", "Добавлено:"+(Summ.text)+" Мб");
End;
FService:=Nil;
CoUninitialize;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
var
A : Cardinal;
ips: String;
Passwords: String;
GUID : String;
Name : String;
begin
Memo1.Clear;
CoInitialize(nil);
Ips:=IP.Text;
Passwords:=Password.Text;
FService:=CoTrafInspAdmin.CreateRemote(ips);
Try
FService.APILogon(passwords);
Except
End;
UList:=FService.APIGetBillProp(APIObjectTypeUser,"");
if not VarIsArray(UList) then ; //Error
For A:= VarArrayLowBound(UList, 1) to VarArrayHighBound(UList, 1) do
Begin
User:= UList[A];
GUID:= User[1];
UAttr := FService.APIGetAttr(3, GUID, User_IPAddr);
UState:= FService.APIGetUserState(GUID);
Name:= UState[0];
Memo1.Lines.Add(GUID);
End;
FService:=Nil;
CoUninitialize;
end;
end.
← →
Denis_ © (2007-09-05 19:37) [1]Так "как", или "кто сможет"? Если 2, то называте сумму.
← →
С.Толик (2007-09-05 19:46) [2]
> Denis_ © (05.09.07 19:37) [1]
>
> Так "как", или "кто сможет"? Если 2, то называте сумму.
А что тут за деньги делают? сорри я не знал! мне нужна подмога а не оплата заказа! я думал тут смогут помочь, ктож знал что тут платный ресурс!!!???
← →
Denis_ © (2007-09-05 19:57) [3]я пошутил вообще-то. Нужна подмога - пишите, в чём конкретно проблема. Возможно Вам помогут.
← →
Инс © (2007-09-05 20:05) [4]
> мне нужна подмога
А звучит так, как будто бы вам нужно, чтобы за вас выполнили часть работы. Чувствуете разницу между "помочь" и "выполнить работу за вас"? Первое тут оказывают, а второе - чтобы за спасибо, так это нужно поискать дурачков. Или задавайте более конкретный вопрос, что именно в переводе у вас вызывает затруднение.
← →
Denis_ © (2007-09-05 20:06) [5]
> Инс © (05.09.07 20:05) [4]
Да он испугался и ушол
← →
С.Толик (2007-09-05 20:08) [6]
> Инс © (05.09.07 20:05) [4]
:) Все! Я даже на знаю С++ но перевод нужен как ни когда! Да и в Дельфях я чайник!
← →
С.Толик (2007-09-05 20:09) [7]
> Denis_ © (05.09.07 20:06) [5]
Я вас чем то обидел?
← →
Denis_ © (2007-09-05 20:09) [8]
> :) Все! Я даже на знаю С++ но перевод нужен как ни когда!
> Да и в Дельфях я чайник!
вам на веблансер или типа того сайт какой - нибудь
← →
Denis_ © (2007-09-05 20:11) [9]
> Я вас чем то обидел?
Да нет, просто неадекватно ореагировали на самую первую шутку :)
А вообще, тут не помогут в Вашем смысле . Бесплатно переводить не станут.
← →
С.Толик (2007-09-05 20:12) [10]
> Denis_ © (05.09.07 20:09) [8]
Зачем же тему портачить? нет желания не помогайте! Хмм..
← →
Инс © (2007-09-05 20:14) [11]Вам в ряд ли кто либо поможет в таком ключе. Смотрите как нехорошо получается, вам дали ТЗ, вы его спихнули другому, сказали спасибо, а вам за это заплатили. ИМХО нехорошо.
← →
Denis_ © (2007-09-05 20:15) [12]
> нет желания не помогайте! Хмм..
если честно, в сях я тоже не шарю. Но просто, чтоб не тратили зря времени , говорю ещё раз :"не будут тут писать"
← →
С.Толик (2007-09-05 20:19) [13]
> Инс © (05.09.07 20:14) [11]
Не кто мне не давал Т3 ??? что енто! просто один Кусок кода на С++ и он важен а второй на дельфях он Жизненно необходим и от сего такой вопрос-просьба!
← →
DVM © (2007-09-05 21:38) [14]
> С.Толик
А все модули, которые в Uses и все модули которые в Uses тех модулей тоже переводить? Ты не представляешь просто о чем просишь.
← →
DrPass © (2007-09-05 22:06) [15]
> С.Толик (05.09.07 20:19) [13]
Без шуток - перевести это на С++ сложнее, чем написать на С++ новую программу, делающую то же самое. Одно использование сервера автоматизации Traffic Inspector чего стоит...
← →
Инс © (2007-09-05 22:36) [16]
> [15] DrPass © (05.09.07 22:06)
В том то и дело, что в данном случае "перевести" - означает "написать такую же программу, но на C++". Причем даже не было уточнения, VC++, Builder или еще что-либо.
← →
С.Толик (2007-09-05 23:42) [17]Visual Studio 2005 но я еше уточню!
← →
DrPass © (2007-09-06 00:35) [18]
> Visual Studio 2005 но я еше уточню!
Да не напрягайся, все равно никто эту программу писать не собирается :)
← →
sniknik © (2007-09-06 01:18) [19]в оптимизации так понимаю код больше не нуждается...
http://delphimaster.net/view/2-1188923598/
нафига тогда народ "напрягал"?
подожди еще немного, не делай ничего, глядишь и в переводе надобность отпадет.
← →
Германн © (2007-09-06 01:25) [20]
> подожди еще немного, не делай ничего, глядишь и в переводе
> надобность отпадет.
Угу. Автор(ы) Си-шной части (а она скорее всего основная) найдут того, кто сможет сам всё сделать. И, имхо, будут правы. Им же потом нужно будет ещё и поддерживать свой продукт.
← →
С.Толик (2007-09-06 08:17) [21]
> sniknik © (06.09.07 01:18) [19]
Вы чтоли напрягались? Хмм...
Slym © я искренне Благодарен! И этого не скрывал!
> Германн © (06.09.07 01:25) [20]
Не основная! см. выше - но жизненно важна для меня! но если отключить амбиции и последовать совету Многоуважаемого Anatoly Podgoretsky и заюзать Планировщик Винды, то проблемма сама собой и отпадёт! Важен был код Дельфийный и человек без Амбиций Slym © как в данном посте проявились Германн ©; sniknik © - Коротко и локанично решил замечю БЕЗВОЗМЕЗДНО мою проблемму (хотя код мой работал без багофф и нужна была оптимизация и совет) за Что ему Респект и Уважуха!
З.Ы. Прежде чем что-то осуждать - Осудите себя! (С) 2007 С.Толик
← →
Anatoly Podgoretsky © (2007-09-06 10:19) [22]> С.Толик (06.09.2007 08:17:21) [21]
Отпадет или нет - это другой вопрос, просто это путь профессиональный.
И родной планировщик можно по разному использовать, как есть или управлять им через АПИ.
З.Ы, не суди себя любимого.
← →
С.Толик (2007-09-06 11:02) [23]
> Anatoly Podgoretsky © (06.09.07 10:19) [22]
Не кто и не спорил!
← →
DrPass © (2007-09-06 11:50) [24]
> Прежде чем что-то осуждать - Осудите себя! (С) 2007 С.Толик
Записато в аналы мудости
← →
Sonia © (2007-09-06 12:23) [25]
> С.Толик (05.09.07 19:35)
А чего стоит переделать с Си?? Возьми Builder, размести компоненты и напиши функции. Посмотри тока синтаксис в книжке, а компоненты, свойства и события все те же, что и в Дельфи.
ЗЫ Когда будут конкретные вопросы, те помогут :)
← →
J_f_S (2007-09-06 14:05) [26]Делфимастерс наверно, последний, форум где люди еще ведутся на изначально троллические темы.
← →
Denis_ © (2007-09-06 14:32) [27]
> С.Толик
А я Вам сразу сказал...
← →
isasa © (2007-09-06 15:20) [28]Sonia © (06.09.07 12:23) [25]
А чего стоит переделать с Си??
Здесь перевод не то слово. Для интерфейса ITrafInspAdmin надо делать *.idl файл(вместо TLB), это если писать для раннего связывания. Или для позднего, четь по другому...
Фактически это DrPass © (05.09.07 22:06) [15].
← →
С.Толик (2007-09-06 15:34) [29]Всем Спасибо за Откровения - Вопрос снят с повестки дня!
З.Ы. Не тот ужо форум, не тот! Алчность и жажда наживы захлестнула ваши души!
← →
Инс © (2007-09-06 15:44) [30]А про жажду халявы почему-то умолчал...
← →
С.Толик (2007-09-07 23:02) [31]
> Инс © (06.09.07 15:44) [30]
Эх кому что а кому и родное!
← →
DVM © (2007-09-07 23:18) [32]
> З.Ы. Не тот ужо форум, не тот! Алчность и жажда наживы захлестнула
> ваши души!
Ты его другим что ли видел? Давно ли ты тут? Если давно, то немногому же ты научился за эти долгие годы.
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2007.10.07;
Скачать: [xml.tar.bz2];
Память: 0.55 MB
Время: 0.047 c