Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.07.11;
Скачать: [xml.tar.bz2];

Вниз

Как откомпилировать исходник ~70 Mb?   Найти похожие ветки 

 
Alex____ ©   (2004-06-24 17:55) [0]

Как откомпилировать консольное приложение Delphi размер исходного кода которого около 70 Mb?
Подскажите пожалуйста.


 
Ломброзо ©   (2004-06-24 18:00) [1]

dcc32 myfile.dpr


 
ПсихЪ_клон   (2004-06-24 18:05) [2]


> Alex____ ©   (24.06.04 17:55)

Ты главное время засеки - интересно же!!! Потом расскажешь! (:


 
jack128 ©   (2004-06-24 18:12) [3]

а чем проблема? Или это одним файлом 70 метров. Если так - то этот ивращенец писал - лудше не компилируй ;-)


 
ИМХО ©   (2004-06-24 18:14) [4]

Это операционная система, написанная на Delphi...


 
nikkie ©   (2004-06-24 18:21) [5]

>jack128
лучше пишется через ч...


 
Johnmen ©   (2004-06-24 18:59) [6]

>Alex____ ©   (24.06.04 17:55)  

Откуда взял ?


 
Ломброзо ©   (2004-06-24 21:05) [7]

Кодогенератор, видать


 
ПсихЪ_клон   (2004-06-25 00:13) [8]

Ага, это декомпилированные файлы Виндовса... (:


 
Palladin ©   (2004-06-25 00:18) [9]

Наверное это фотогалерея, выводящаяся через Canvas.Pixels[]... каждый пиксель отдельной строкой...


 
panov ©   (2004-06-28 13:37) [10]

76Мб. исходный код.

ufMain.pas(3009336)
MP.dpr(14)
3009352 lines, 493.53 seconds, 40267228 bytes code, 7745 bytes data.


 
panov ©   (2004-06-28 13:49) [11]

Желающие могут попробовать сами откомпилировать -
http://home.ural.ru/~panov/files/MegaPuper.rar
44кб.


 
raidan   (2004-06-28 14:18) [12]

Лажа.


 
panov ©   (2004-06-28 14:19) [13]

>raidan   (28.06.04 14:18) [12]

Ты о чем так глубокомысленно, выпятив губу?


 
vecna ©   (2004-06-28 15:03) [14]

ПсихЪ_клон
> Ты главное время засеки - интересно же!!! Потом расскажешь! (:

а че тут интересного, у меня исходники 800 мегов, компилится минут за 20


 
Rem   (2004-06-28 15:15) [15]

> у меня исходники 800 мегов

В каком страшном сне ты это придумал? Не позорься!


 
vecna ©   (2004-06-28 15:29) [16]

Rem, а что тут такого позорного ? это огромная корпоративная информационная система под oracle.


 
Anatoly Podgoretsky ©   (2004-06-28 15:59) [17]

panov ©   (28.06.04 13:49) [11]
Ты что подсунул, уже полтора часа компилируется, вечером доложу результаты :-)


 
panov ©   (2004-06-28 16:01) [18]

>Anatoly Podgoretsky ©   (28.06.04 15:59) [17]
А ты dcc32 используешь для компиляции или IDE?


 
Anatoly Podgoretsky ©   (2004-06-28 16:03) [19]

panov ©   (28.06.04 16:01) [18]
Вечером, когда откомпилирую ЭТО га двух компьютерах, а так вккратче ИДЕ


 
panov ©   (2004-06-28 16:05) [20]

>Anatoly Podgoretsky ©   (28.06.04 16:03) [19]
dcc32 значительно быстрее компилирует - около 5-10 минут, из IDE - 30-40 минут


 
MBo ©   (2004-06-28 16:05) [21]

>panov ©   (28.06.04 13:37) [10]
>76Мб. исходный код.
Телепатов нет, код покажи в форуме ;)))))))))


 
_student   (2004-06-28 16:06) [22]

*^&^%%^$&^  какая-то


 
Anatoly Podgoretsky ©   (2004-06-28 16:07) [23]

Славо богу есть модераторы, сразу РО на инфинитн


 
panov ©   (2004-06-28 16:17) [24]

>MBo ©   (28.06.04 16:05) [21]
Телепатов нет, код покажи в форуме ;)))))))))

Сейчас, только дождусь, когда проект в Delphi загрузится...


 
panov ©   (2004-06-28 16:26) [25]

Раз обещал, выкладываю исходник:

unit ufMain;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ExtCtrls, StdCtrls, ToolWin, ComCtrls;

type
 TForm1 = class(TForm)
   ToolBar1: TToolBar;
   Button1: TButton;
   pb: TPaintBox;
   procedure Button1Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 X,Y: Integer;
 H,W: Integer;
 cl: Integer;
 i: Integer;
begin
 Randomize;
 H := pb.CLientHeight;
 W := pb.CLientWidth;

 X := Random(H);
 Y := Random(W);
 cl := Random(High(TCOlor));
 pb.Canvas.Pixels[X,Y] := cl;
 X := Random(H);
 Y := Random(W);
 cl := Random(High(TCOlor));
 pb.Canvas.Pixels[X,Y] := cl;

...
//ну тут еще 3 миллиона похожих строк.

 X := Random(H);
 Y := Random(W);
 cl := Random(High(TCOlor));
 pb.Canvas.Pixels[X,Y] := cl;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Form1.DoubleBuffered := True;
end;

end.


 
Anatoly Podgoretsky ©   (2004-06-28 16:28) [26]

Исходник естественно программно генерировала, вот отсюда и берутся проекты на миллоны строк


 
Anatoly Podgoretsky ©   (2004-06-28 16:30) [27]

Кстати при предудущих измерениях пиписек, никто не заявлял о таких больших проектах. :-)


 
panov ©   (2004-06-28 16:31) [28]

>Anatoly Podgoretsky ©   (28.06.04 16:28) [26]

Исходник естественно программно генерировала, вот отсюда и берутся проекты на миллоны строк

Не угадал...
Всё вручную.


 
Sandman25 ©   (2004-06-28 16:34) [29]

[28] panov ©   (28.06.04 16:31)

мне это напомнило мои ранние опыты с unix редактором joe, было интересно узнать его ограничение на размер редактируемого файла. Строку длиной 10 миллионов символов он копировал уже не очень быстро...


 
Anatoly Podgoretsky ©   (2004-06-28 16:37) [30]

Sandman25 ©   (28.06.04 16:34) [29]
Я каждый месяц работаю с логами своего сервера, как правило более 300 мб, очень медленно но работать можно.


 
Anatoly Podgoretsky ©   (2004-06-28 16:39) [31]

Два часа, компиляьло все трудится, лишь бы до конца работы справился, мне интересно сравнить, зачем я деньги тратил на новый компьютер и не обманул ли Борланд, что 64 мб достаточно


 
Sandman25 ©   (2004-06-28 16:42) [32]

[30] Anatoly Podgoretsky ©   (28.06.04 16:37)

сочувствую. время переходить на запись логов в БД :)


 
Anatoly Podgoretsky ©   (2004-06-28 16:48) [33]

Стандартный Апач на Линуксе, смысла переходить куда либо нет, раз в месяц на 10-20 минут.


 
raidan   (2004-06-28 16:52) [34]

Удалено модератором


 
raidan   (2004-06-28 16:53) [35]


vecna ©   (28.06.04 15:29) [16]
Rem, а что тут такого позорного ? это огромная корпоративная информационная система под oracle.

На Делфях писанная? :-/


 
Mim1 ©   (2004-06-28 18:19) [36]

Это только у меня мания крашить все на модули, или у кого нить еще такая идея возникла когда вы услышали про 800мб? :)


 
Rem   (2004-06-28 19:00) [37]

2 vecna
>> это огромная корпоративная информационная система под oracle.

Подрядили половину Китая для написания?


 
raidan   (2004-06-28 19:09) [38]

Че-то больно много 800 Мб...

Наша система тоже не маленькая, но клиентская часть весит "всего" 90 Мб (правда это Power Builder)...
И серверная - 18 Мб, включая стандартную накачку...


 
Anatoly Podgoretsky ©   (2004-06-28 19:54) [39]

Проверка дома на P-IV 2.4 плата Intel d975/ 1.5 gb dual chanel DDR 400 / Win XP Pro / Delphi 5
dcc 13.36 секунд на все
IDE примерно 1 мин подготовка, затем компиляция 5 сек.
Нагружен только один процессор на 80% (тоже не шедевр), память 285 в пиее

Проверка на работе на Cel-433 / 98 b´mb / Win 98 / Delphi 5
IDE проверку не выдержал, Борланд обманул насчет 64 иб, завтра проверю с dcc

Пока вижу, что не зря деньги на компьютер тратил.


 
Anatoly Podgoretsky ©   (2004-06-28 19:55) [40]

Время работы программ 2 секунды (ATI-9200)



Страницы: 1 2 вся ветка

Форум: "Основная";
Текущий архив: 2004.07.11;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.53 MB
Время: 0.038 c
1-1087907095
Klerk
2004-06-22 16:24
2004.07.11
Снова Про Excel


1-1088284734
DeScriptor
2004-06-27 01:18
2004.07.11
динамический массив в кач-ве параметра функции/процедуры


14-1087797585
DimKa
2004-06-21 09:59
2004.07.11
Россия - Греция : 2-1


1-1088576468
Serg7077
2004-06-30 10:21
2004.07.11
тип Float


6-1084370072
DarkGreen
2004-05-12 17:54
2004.07.11
TIdHTTP, закачка файла, в случае если он обновлен.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский