Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Конвертация форм CBuilder / 9 сообщений из 9, страница 1 из 1
27.07.2021, 21:25
    #40086562
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Конвертация форм CBuilder
Есть исходник программы на CBuilder. Можно как-нибудь получить оттуда форму со всеми обработчиками событий (тело обработчика пусть будет пустым)?

С уважением, Vasilisk
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.07.2021, 21:37
    #40086563
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Конвертация форм CBuilder
Отбой. Регекспами все сделал
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2021, 14:04
    #40086730
Гаджимурадов Рустам
Гаджимурадов Рустам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Конвертация форм CBuilder
_Vasilisk_> Отбой. Регекспами все сделал

Выложи сюда, людям на будущее.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2021, 15:12
    #40086774
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Конвертация форм CBuilder
Гаджимурадов Рустам
Выложи сюда, людям на будущее.
1. dfm помещаем как есть
2. Из h файла копируем все, что в секции __published в pas файл формы
3. В любом редакторе, который адекватно поддерживает поиск и замену по регекспам последовательно выполняем
FindReplacevoid __fastcallprocedure([a-z0-9]+) \*([a-z0-9]+)$2: $1([a-z0-9]+) \&([a-z0-9]+)var $2: $1,;
После этого пробуем откомпилировать, при необходимости дорабатываем напильником.

При появлении ошибки E2065 Unsatisfied forward or external declarationжмем Ctrl+Shift+C
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2021, 15:29
    #40086783
Гаджимурадов Рустам
Гаджимурадов Рустам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Конвертация форм CBuilder
_Vasilisk_> 3. ... последовательно выполняем


Этого достаточно что ли?
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2021, 16:42
    #40086835
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Конвертация форм CBuilder
Гаджимурадов Рустам
Этого достаточно что ли?
А что еще? У меня такой h-файл
 
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TMemo *Memo1;
        TStatusBar *StatusBar1;
        TPanel *Panel1;
        TGroupBox *GroupBox3;
        TGroupBox *GroupBox2;
        TLabel *Label3;
        TLabel *Label5;
        TLabel *Label7;
        TMaskEdit *MyIPAdrEdit;
        TMaskEdit *MyIPPortEdit;
        TMaskEdit *MyAdrEdit;
        TGroupBox *GroupBox1;
        TLabel *Label8;
        TLabel *Label9;
        TLabel *Label10;
        TMaskEdit *IPAdrEdit;
        TMaskEdit *IPPortEdit;
        TMaskEdit *AdrEdit;
        TGroupBox *GroupBox5;
        TBitBtn *BitBtn1;
        TBitBtn *NKommutator;
        TBitBtn *BitBtn3;
        TBitBtn *BitBtnInit;
        TBitBtn *ButtonStart;
        TBitBtn *ButtonStop;
        TSpeedButton *SpeedButtonPusk;
        TClientSocket *ClientSocket1;
        TTimer *Timer1;
        TTimer *Timer2;
        TBitBtn *BitBtn4;
        TCheckBox *CheckBox1;
        TPanel *Panel2;
        TPanel *Panel3;
        TPanel *Panel4;
        TSpeedButton *SpeedButton3;
        TCheckBox *CheckBoxMemo;
        TGroupBox *GroupBox4;
        TLabel *Label6;
        TLabel *Label4;
        TLabel *Label2;
        TLabel *Label1;
        TLabel *Label12;
        TEdit *Freq;
        TComboBox *PolosaBox;
        TComboBox *ComboBoxAtt;
        TComboBox *ComboBoxRapQ;
        TComboBox *ComboBoxQ;
        TGroupBox *GroupBox6;
        TLabel *Label13;
        TLabel *Label14;
        TLabel *Label15;
        TLabel *Label16;
        TLabel *Label17;
        TEdit *Freq2;
        TComboBox *PolosaBox2;
        TComboBox *ComboBoxAtt2;
        TComboBox *ComboBoxRapQ2;
        TComboBox *ComboBoxQ2;
        TPageControl *PageControl2;
        TTabSheet *TabSheetGist;
        TChart *ChartGist;
        TBarSeries *SeriesGist;
        TBarSeries *Series1;
        TGroupBox *GroupBox7;
        TLabel *Label19;
        TLabel *Label20;
        TLabel *Label21;
        TLabel *Label22;
        TLabel *Label23;
        TEdit *FbegEdit;
        TComboBox *PolosaBox3;
        TComboBox *ComboBoxAtt3;
        TComboBox *ComboBoxRapQ3;
        TComboBox *ComboBoxQ3;
        TLabel *Label24;
        TEdit *FEndEdit;
        TLabel *Label25;
        TLabel *Label26;
        TEdit *StepEdit;
        TLineSeries *Series2;
        TRadioGroup *RadioGroupKindQ;
        TPanel *Panel5;
        TLabel *Label11;
        TLabel *LabelPel;
        TLabel *Label18;
        TLabel *LabelPel2;
        TPanel *Panel6;
        TTimer *Timer3;
        TCheckBox *CheckBoxChart;
        TCheckBox *CheckBoxNotKvit;
        TLabel *Label27;
        TComboBox *ComboBoxRegim;
        TCheckBox *CheckBoxTestState;
        TTimer *Timer4;
        TComboBox *ComboBoxKindKontrol;
        TGroupBox *GroupBox8;
        TEdit *TimeOutFreqEdit;
        TLabel *Label28;
        TTimer *Timer5;
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall ButtonInitClick(TObject *Sender);
        void __fastcall ButtonStartClick(TObject *Sender);
        void __fastcall ButtonStopClick(TObject *Sender);
        void __fastcall ButtonStatusClick(TObject *Sender);
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
        void __fastcall ClearMemo1Click(TObject *Sender);
        void __fastcall N_TestKCCClick(TObject *Sender);
        void __fastcall NKommutatorClick(TObject *Sender);
        void __fastcall SpeedButtonPuskClick(TObject *Sender);
        void __fastcall ClientSocket1Error(TObject *Sender,
          TCustomWinSocket *Socket, TErrorEvent ErrorEvent,
          int &ErrorCode);
        void __fastcall ClientSocket1Read(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall ClientSocket1Connect(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall ClientSocket1Disconnect(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall Timer1Timer(TObject *Sender);
        void __fastcall Timer2Timer(TObject *Sender);
        void __fastcall BitBtn4Click(TObject *Sender);
        void __fastcall CheckBox1Click(TObject *Sender);
        void __fastcall FreqKeyPress(TObject *Sender, char &Key);
        void __fastcall CheckBoxManyFreqClick(TObject *Sender);
        void __fastcall RadioGroupKindQClick(TObject *Sender);
        void __fastcall Timer3Timer(TObject *Sender);
        void __fastcall CheckBoxTestStateClick(TObject *Sender);
        void __fastcall Timer4Timer(TObject *Sender);
        void __fastcall Timer5Timer(TObject *Sender);
        void __fastcall ComboBoxRegimChange(TObject *Sender);
private:	// User declarations

Зажевало на раз. Единственное что я ссылки правил руками
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2021, 17:05
    #40086856
Гаджимурадов Рустам
Гаджимурадов Рустам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Конвертация форм CBuilder
_Vasilisk_> А что еще?

Навскидку - я ожидал, что с типами могут быть проблемы.
Не в простейшем случае, конечно же...
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2021, 18:28
    #40086892
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Конвертация форм CBuilder
Гаджимурадов Рустам
я ожидал, что с типами могут быть проблемы.
Так мы же говорим только о дизайн-тайме. Конечно все пользовательские декларации нужно переписывать вручную.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2021, 19:14
    #40086900
Гаджимурадов Рустам
Гаджимурадов Рустам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Конвертация форм CBuilder
_Vasilisk_> Так мы же говорим только о дизайн-тайме.

+ обработчики. А событий со стандартными типами хватает.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Конвертация форм CBuilder / 9 сообщений из 9, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 519ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2037149]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 150ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 276ms
total:  519ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]