Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Irushka
0 / 0 / 0
Регистрация: 18.10.2012
Сообщений: 4
#1

Из Делфи в С++ - C++

21.10.2012, 19:15. Просмотров 303. Ответов 2
Метки нет (Все метки)

Может ли кто то помочь перевести программу?Буду очень благодарна любой помощи)

Delphi
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ExtDlgs;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Button1: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var Bitmap1, Bitmap2: TBitmap;
    x,y: Integer;
    r,g,b: Integer;
    l:Real;
    FName: String;
begin
Bitmap1:=TBitmap.Create;
Bitmap2:=TBitmap.Create;
//
Bitmap1.Width:=957;
Bitmap1.Height:=672;
Bitmap1.PixelFormat:=pf24bit;
//
Bitmap2.Width:=Bitmap1.Width;
Bitmap2.Height:=Bitmap1.Height;
Bitmap2.PixelFormat:=pf24bit;
//
if (OpenPictureDialog1.Execute()) then
begin
  FName := OpenPictureDialog1.FileName;
  Bitmap1.LoadFromFile(FName);
  Image1.Picture.Bitmap:=Bitmap1;
end;
//
for x := 0 to Bitmap1.Width-1 do
begin
  for y := 0 to Bitmap1.Height-1 do
    begin
      r:=getRValue(Bitmap1.Canvas.Pixels[x,y]);
      g:=getGValue(Bitmap1.Canvas.Pixels[x,y]);
      b:=getBValue(Bitmap1.Canvas.Pixels[x,y]);
      l:= 0.299*r+0.587*g+0.114*b;
      l:=Round(l);
      if l>255 then l:=255;
       Bitmap2.Canvas.Pixels[x,y]:=RGB(Round(l),Round(l),Round(l));
    end;
end;
Image2.Picture.Bitmap:=Bitmap2;
end;
 
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.10.2012, 19:15
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Из Делфи в С++ (C++):

С делфи на С++ - C++
Кто-нибудь может перевести программу с делфи на С++? Или написать аналог по заданию: "Последовательность 011212201220200112… строится...

Перевести с Делфи в С++ - C++
есть код на делфи, помогите перевести на с++ program Project2; {$APPTYPE CONSOLE} uses SysUtils; const n=10;

Перевести из делфи в с++ - C++
В числовой последовательности ищется максимальный элемент и выводится его номер var s,max:real; i,k,n:integer; c:extended;...

Переход с делфи - C++
:) Здравствуйте! решил освоить С++ перехожу на него с Делфи. вопрос такой-как записать в С++ значение из TextBox в какую-либо...

Перевод из делфи в с - C++
В заданной строке удалить символ двоеточие (:) и подсчитать количество удаленных символов uses crt; var a:string; kol:integer;...

Перевод кода Делфи - C++
Всем привет!Нужна ваша помощь.Надо перевести этот код с делфи на с++ Само задание "Напишите программу «Угадайка». Компьютер случайным...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
silent_1991
Эксперт С++
4964 / 3040 / 149
Регистрация: 11.11.2009
Сообщений: 7,027
Завершенные тесты: 1
24.10.2012, 13:19 #2
Что программа делает? Сейчас тема имеет не информативное название, и я не могу переименовать её, потому что кроме кода вы ничего не предоставили. Текст задания также увеличивает ваши шансы на получение помощи, поскольку, возможно, не все знающие Делфи люди захотят написать вам программу (что маловероятно) или поделиться хранящимся у них готовым кодом (что более вероятно).
0
хАЛЕКСЕЙх
8 / 8 / 2
Регистрация: 11.10.2012
Сообщений: 118
24.10.2012, 15:48 #3
Цитата Сообщение от Irushka Посмотреть сообщение
Delphi
1
2
3
4
5
6
7
TForm1 = class(TForm)
 Image1: TImage;
 Image2: TImage;
 Button1: TButton;
 OpenPictureDialog1: TOpenPictureDialog;
 SavePictureDialog1: TSavePictureDialog;
 procedure Button1Click(Sender: TObject);
мне кажется здесь прийдётся работать с оконным приложением

Добавлено через 8 минут
Irushka, покажи скрин приложения написанного на Delphi
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.10.2012, 15:48
Привет! Вот еще темы с ответами:

переход с делфи на цпп - C++
здравствуйте ув. товарищи хотелось что бы вы подсказали какие нибудь ссылки с базовыми примерами для цпп т.к. я даже не знаю как...

stringgrid. аналог делфи. - C++
помогите, пожалуйста, мне вот это написать на с++: procedure TForm2.sgSelectCell(Sender: TObject; ACol, ARow: Integer; var...

Аналог модуля Делфи в С++ - C++
Соббсно, в теме и есть вопрос. Есть модуль в делфях, а что есть аналогичное в С++??? . У нас преподают паскаль и тут задача поступила...

Аналог копонента MaskEdit с Делфи в VC++ - C++
В Delphi есть компонент MaskEdit (необходимо поле для форматированного ввод даты) - подскажите есть ли аналог в VC++


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru