Можно ли готовую программу разбить на исходники?

← →
Иван (2011-03-14 14:27) [0]

Можно ли готовую программу написанную на Delphi разбить на исходники?при написании программы были утеряны исходники,а нужно кое что подправить и добавить 1 функцию...заново набирать сил нет..

← →
clickmaker © (2011-03-14 14:30) [1]

только на asm.
можно DeDe еще попробовать

← →
MsGuns © (2011-03-14 14:33) [2]

Конечно. Причем вместе с комментариями
:)

← →
Anatoly Podgoretsky © (2011-03-14 14:36) [3]

> Иван (14.03.2011 14:27:00) [0]

Можно только очень дорого, проще написать с нуля и полезно.

← →
Иван (2011-03-14 14:55) [4]

ну полезно,спору нет)только время дорого) с DeDe вроде пошло дело,спасибо!

← →
Amoeba_ (2011-03-14 17:24) [5]

> с DeDe вроде пошло дело

Но получишь не исходники, а вроде как исходники.

← →
sniknik © (2011-03-14 19:31) [6]

разобрать можно... собрать после сложно, часто попросту невозможно, без усилий гораздо больших чем написание с 0.

← →
oldman © (2011-03-14 20:42) [7]

> при написании программы были утеряны исходники

Как же вы ее компильнули?

ЗЫ: Кошмар программиста: всю ночь писать программу и уснуть на backspace

← →
И. П. Павел (2011-03-14 23:33) [8]

> ЗЫ: Кошмар программиста: всю ночь писать программу и уснуть
> на backspace

В Delphi 7 лимит undo по умолчанию = 32767, так что прикорнуть на 18 мин. можно :)

← →
KilkennyCat © (2011-03-15 01:44) [9]

можно насколько угодно - это будет считаться одним действием.

← →
Германн © (2011-03-15 03:27) [10]

> можно насколько угодно - это будет считаться одним действием.

Трудно уснуть на одной клавише и не пошевельнуться во сне. :)

← →
sniknik © (2011-03-15 09:27) [11]

> и не пошевельнуться, 32767 раз, во сне. :)

← →
app © (2011-03-15 13:37) [12]

У backspace есть повтор

← →
sniknik © (2011-03-15 14:09) [13]

> У backspace есть повтор
> - это будет считаться одним действием.

← →
Anatoly Podgoretsky © (2011-03-15 14:31) [14]

> sniknik (15.03.2011 14:09:13) [13]

Мне удавалось весь исходник обратно очистить, про бакспейсить.

← →
OW © (2011-03-15 14:34) [15]

я так делаю теперь

батник
erase *.~*
erase *.dcu
erase *.ddp
erase *.rar
erase *.rsm
erase *.map
"C:\Program Files\WinRAR\rar.exe" a Source *.* -x*.exe -x*.dcu -x*.rar -x*.res -x*.~* -x*.ddp
brcc32.exe SOURCE.RC

В проекте
{$R SOURCE.RES}

и первой строкой
if UpperCase(ExtractFileName(paramstr(0))) = "GIVEMESRC.EXE" then SaveSource;
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
...

где
procedure SaveSource;
var
stream: TStream;
FileStream: TFileStream;
begin
stream := TResourceStream.Create(Hinstance, "SRC", RT_RCDATA);
FileStream := TFileStream.Create(application.ExeName+"-source.rar", fmCreate);
try
FileStream.CopyFrom(stream, 0);
finally
FileStream.Free;
stream.Free;
end;
application.Terminate;
end;

← →
OW © (2011-03-15 14:37) [16]

ну да и файлик SOURCE.RC лежит
где написано
SRC RCDATA "SOURCE.RAR"

← →
Иксик © (2011-03-15 17:33) [17]

SVN! :)

← →
KilkennyCat © (2011-03-16 01:45) [18]

> Иксик © (15.03.11 17:33) [17]

никакой гарантии от ворочания на клавиатуре во время сна - можно такую комбинацию наворчить, вплоть до написания и распространения вируса, который убъет все компы в мире.

> KilkennyCat © (16.03.11 01:45) [18]

вот разрешай теперь спать программистам ... нееет, общество такого безобразия позволить не может!

> я так делаю теперь

с какой целью ?

> Ну с этой, удовольствие получить от процесса.

Своеобразная перверсия

> Кошмар программиста: всю ночь писать программу и уснуть
> на backspace

... проснуться и нажать Ctrl+S :)

> xayam © (17.03.11 16:09) [24]
> ... проснуться и нажать Ctrl+S :)

Ты никогда на Клиппере по ДОС не писал? Какой Ctrl+S?

к сожалению не испытал такого счастья...

Можно ли готовую программу разбить на исходники? Найти похожие ветки