Как (Кто сможет?) перевести данный код с 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]

> Прежде чем что-то осуждать - Осудите себя! (С) 2007 С.Толик

Записато в аналы мудости

> С.Толик (05.09.07 19:35)

А чего стоит переделать с Си?? Возьми Builder, размести компоненты и напиши функции. Посмотри тока синтаксис в книжке, а компоненты, свойства и события все те же, что и в Дельфи.

ЗЫ Когда будут конкретные вопросы, те помогут :)

← →
J_f_S (2007-09-06 14:05) [26]

Делфимастерс наверно, последний, форум где люди еще ведутся на изначально троллические темы.

> С.Толик

А я Вам сразу сказал...

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-07 23:02) [31]

> З.Ы. Не тот ужо форум, не тот! Алчность и жажда наживы захлестнула
> ваши души!

Ты его другим что ли видел? Давно ли ты тут? Если давно, то немногому же ты научился за эти долгие годы.

Как (Кто сможет?) перевести данный код с Delphi на С++ Найти похожие ветки