HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуАрхисрочно!!!!Не могу получить код делфи проги!!!Помогите!!!!!!!!!!!!!!!!! ← Ctrl1Ctrl →
Этот топик читают: Гость
Ответов: 133
Рейтинг: 3
#1: 2009-08-06 00:05:18 ЛС | профиль | цитата
Не могу получить код на делфи скомпилированной проги!!!!!!!!
Код получается, но один и тот же и не зависит от того, что в исходнике sha есть!!!!
Сделал убойную прогу, но код делфи не могу получить!!!!!!
Пример: прога -только форма:
code_14479.txt


А теперь код делфи проги с картинкой
code_14480.txt
Разве не одно и тоже???Помогите, плиииз!Если кто реально поможет, я прогой поделюсь!!!!!!!!!!!!!!
карма: 0

0
файлы: 2code_14479.txt [395B] [113], code_14480.txt [395B] [112]
Гость
Ответов: 17029
Рейтинг: 0
#2: 2009-08-06 00:12:11 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2025-01-17 15:32:39
карма: 0

0
Ответов: 133
Рейтинг: 3
#3: 2009-08-06 00:26:01 ЛС | профиль | цитата
hiMainForm-что это и где искать????
------------ Дoбавленo в 00.48:
Нашел вот это : 

#pas
unit hiMainForm_35B55B0;

interface

uses 
  Windows,
  hiMainForm,
  hiBitmap,
  hiImg_Bmp,
  hiPaintBox,
  hiButton,
  hiLabel,
kol,Share;

type
  TClassMainForm_35B55B0 = class
   public
  MainForm_35B55B0:THIMainForm;
  Bitmap_1CE1670:THIBitmap;
  Img_Bmp_38A9A64:THIImg_Bmp;
  PaintBox_38AA944:THIPaintBox;
  Button_35B5180:THIButton;
  Label_35B4640:THILabel;
    constructor Create;
    destructor Destroy; override;
  end;

var
  ClassMain:TClassMainForm_35B55B0;

implementation

constructor TClassMainForm_35B55B0.Create;
begin
  inherited;
  ClassMain := self;
 //MainForm_35B55B0 - Main
  MainForm_35B55B0 := THIMainForm.Create(nil);
  with MainForm_35B55B0 do begin
    ManFlags := 0;
    _prop_Left := 0;
    _prop_Top := 0;
    _prop_Width := 1024;
    _prop_Height := 768;
    _prop_Align := caNone;
    _prop_Color := 13113575;
    _prop_Font := hiCreateFont('MS Sans Serif',8,0,0,1);
    _prop_ParentFont := False;
    _prop_Visible := True;
    _prop_Enabled := True;
    _prop_Cursor := crDefault;
    _prop_TabOrder := 0;
    _prop_Ctl3D := 1;
    _prop_WinStyle := 0;
    _prop_Name := PChar(#0);
    _prop_HintIcon := 0;
    _prop_HintTitle := PChar(#0);
    _prop_Hint := PChar(#0);
    _prop_WidthScale := 0;
    _prop_HeightScale := 0;
    _prop_AlphaBlendValue := 255;
    _prop_Caption := PChar('Hello!'#0);
    _prop_BorderStyle := 2;
    _prop_WindowsState := 0;
    _prop_Icon := LoadIcon(hInstance,'ASMA');
    _prop_TaskBar := 0;
    _prop_DragForm := True;
    _prop_KeyPreview := True;
    _prop_TransparentColor := 16777215;
    _prop_SavePosName := PChar(#0);
    _prop_MouseCapture := False;
    _prop_ClientSize := False;
    _prop_Position := poNone;
    Init;
  end;
//Init for Bitmap;
  Bitmap_1CE1670 := THIBitmap.Create;
  with Bitmap_1CE1670 do begin
    _prop_Picture := LoadBitmap(HInstance,'BITMAP0');
    _prop_HWidth := 0;
    _prop_HHeight := 0;
    _prop_FillColor := 0;
  end;
//Init for Img_Bmp;
  Img_Bmp_38A9A64 := THIImg_Bmp.Create;
  with Img_Bmp_38A9A64 do begin
    _prop_X := 0;
    _prop_Y := 0;
    _prop_DrawSource := 0;
    _prop_Transparent := False;
    _prop_TransparentColor := 0;
    _prop_AntiAlias := False;
  end;
//Init for PaintBox;
  PaintBox_38AA944 := THIPaintBox.Create(MainForm_35B55B0.Control);
  with PaintBox_38AA944 do begin
    ManFlags := 0;
    _prop_Left := 0;
    _prop_Top := 0;
    _prop_Width := 513;
    _prop_Height := 768;
    _prop_Align := caNone;
    _prop_Color := -16777201;
    _prop_Font := hiCreateFont('MS Sans Serif',8,0,0,1);
    _prop_ParentFont := False;
    _prop_Visible := True;
    _prop_Enabled := True;
    _prop_Cursor := crDefault;
    _prop_TabOrder := 0;
    _prop_Ctl3D := 1;
    _prop_WinStyle := 0;
    _prop_Name := PChar(#0);
    _prop_HintIcon := 0;
    _prop_HintTitle := PChar(#0);
    _prop_Hint := PChar(#0);
    _prop_WidthScale := 0;
    _prop_HeightScale := 0;
    _prop_ModeSp := spNone;
    _prop_SizeSp := 4;
    _prop_ColorSp := -16777201;
    _prop_MinOwn := 0;
    _prop_MinRest := 0;
    _prop_MouseCapture := False;
    _prop_ClearBeforeDraw := False;
    Init;
  end;
//Init for Button;
  Button_35B5180 := THIButton.Create(MainForm_35B55B0.Control);
  with Button_35B5180 do begin
    ManFlags := 0;
    _prop_Left := 550;
    _prop_Top := 205;
    _prop_Width := 410;
    _prop_Height := 112;
    _prop_Align := caNone;
    _prop_Color := 13113575;
    _prop_Font := hiCreateFont('MS Sans Serif',8,0,16711935,1);
    _prop_ParentFont := False;
    _prop_Visible := True;
    _prop_Enabled := True;
    _prop_Cursor := crDefault;
    _prop_TabOrder := 0;
    _prop_Ctl3D := 1;
    _prop_WinStyle := 0;
    _prop_Name := PChar(#0);
    _prop_HintIcon := 0;
    _prop_HintTitle := PChar(#0);
    _prop_Hint := PChar(#0);
    _prop_WidthScale := 0;
    _prop_HeightScale := 0;
    _prop_Caption := PChar('Если тебе исполнилось 18 лет,'#13#10' то открой данные на носителе'#13#10' с помощью проводника!'#13#10' (закрыть!)'#0);
    _prop_Flat := False;
    _prop_DefaultBtn := False;
    Init;
  end;
//Init for Label;
  Label_35B4640 := THILabel.Create(MainForm_35B55B0.Control);
  with Label_35B4640 do begin
    ManFlags := 0;
    _prop_Left := 664;
    _prop_Top := 25;
    _prop_Width := 198;
    _prop_Height := 64;
    _prop_Align := caNone;
    _prop_Color := 13113575;
    _prop_Font := hiCreateFont('Arial',40,0,65280,0);
    _prop_ParentFont := False;
    _prop_Visible := True;
    _prop_Enabled := True;
    _prop_Cursor := crDefault;
    _prop_TabOrder := 0;
    _prop_Ctl3D := 1;
    _prop_WinStyle := 0;
    _prop_Name := PChar(#0);
    _prop_HintIcon := 0;
    _prop_HintTitle := PChar(#0);
    _prop_Hint := PChar(#0);
    _prop_WidthScale := 0;
    _prop_HeightScale := 0;
    _prop_ModeSp := spNone;
    _prop_SizeSp := 4;
    _prop_ColorSp := -16777201;
    _prop_MinOwn := 0;
    _prop_MinRest := 0;
    _prop_Transparent := False;
    _prop_Caption := PChar('Привет!'#0);
    _prop_AutoSize := False;
    _prop_Alignment := taLeft;
    _prop_ColorHover := 0;
    _prop_Underline := False;
    Init;
  end;
 //%multi%
 //Make all connection in scheme
  Img_Bmp_38A9A64._data_Bitmap             := _DoEvent(PaintBox_38AA944._var_Bitmap,0);
  Img_Bmp_38A9A64._data_SourceBitmap       := _DoEvent(Bitmap_1CE1670._var_Bitmap,0);
  PaintBox_38AA944._event_onBeforeDraw     := _DoEvent(Img_Bmp_38A9A64._work_doDraw,0);
  Button_35B5180._event_onClick            := _DoEvent(MainForm_35B55B0._work_doClose,3);
  MainForm_35B55B0._prop_HintManager := nil;
  MainForm_35B55B0._prop_Layout := nil;
  PaintBox_38AA944._prop_HintManager := nil;
  PaintBox_38AA944._prop_Layout := nil;
  Button_35B5180._prop_HintManager := nil;
  Button_35B5180._prop_Layout := nil;
  Label_35B4640._prop_HintManager := nil;
  Label_35B4640._prop_Layout := nil;
  MainForm_35B55B0.Control.Tabulate;
end;

destructor TClassMainForm_35B55B0.Destroy;
begin
  Label_35B4640.Destroy;
  Button_35B5180.Destroy;
  PaintBox_38AA944.Destroy;
  Img_Bmp_38A9A64.Destroy;
  Bitmap_1CE1670.Destroy;
  MainForm_35B55B0.Destroy;
  inherited;
end;

end.




Вот только как проверить, то ли это(код моей проги ????)
карма: 0

0
Разработчик
Ответов: 26324
Рейтинг: 2148
#4: 2009-08-06 01:44:45 ЛС | профиль | цитата
После компиляции получается, к примеру в секции uses 


uses 
  hiMainForm_35B078C,
  Windows,
  kol,Share;

Так вот, так как секция uses ищет все перечисленные файлы с расширением *.pas, то на данный момент файл твоей формы будет -- hiMainForm_35B078C.pas
карма: 22

1
Голосовали:Artem_user
Ответов: 133
Рейтинг: 3
#5: 2009-08-06 01:47:33 ЛС | профиль | цитата
Посмотрел код-ЭТО НУЖНЫЙ КОД
!!!!!!!!!!!!!!!!!СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
------------ Дoбавленo в 01.51:
нАШЕЛ КОД ПРОСТО ПО ЛОГИКЕ-КОД ПРОГИ ИЗ-ЗА ОГРОМНОГО ОБЪЕМА ВЫЛОЖИТЬ НЕ МОГУ
карма: 0

0
Ответов: 590
Рейтинг: 19
#6: 2009-08-06 19:21:48 ЛС | профиль | цитата
оффтоп...
Кто нибудь отредактируйте пост выше, а то в браузер не вмещается даже...
карма: 0

0
6
ФорумыПомощь по пакетуАрхисрочно!!!!Не могу получить код делфи проги!!!Помогите!!!!!!!!!!!!!!!!! ← Ctrl1Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2025
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика