Файлы dcu->pas

← →
webpauk (2003-12-02 11:38) [0]

может кто знает как преобразовать

← →
Amoeba (2003-12-02 11:39) [1]

А никак!

← →
TUser © (2003-12-02 11:39) [2]

Никак. Низя это.

← →
webpauk (2003-12-02 11:45) [3]

вот говно то!

← →
Anatoly Podgoretsky © (2003-12-02 11:45) [4]

Ручками

← →
Awex (2003-12-02 11:45) [5]

В принципе можно...
Вот есть подобная утилита..

Project Dcu2Pas
Purpose Decompile a D2-D7, K1-K3"s dcu(dpu) file to Delphi source as origin as
possible, without or with minimal modifications, then recompile to new
one under other Delphi versions
Author Nengwen Zhuo(ЧїДЬОД)
Homes http://soarowl.uhome.net, http://www.websamba.com/soarowl, http://soarowl.0catch.com
Emails soarowl@yeah.net, soarowl@sina.com.cn
Lastest home/dl/Dcu2Pas.rar(zip)

Если возникнут проблемы с докачкой, могу скинуть маилом..
файл Dcu2Pas.rar 412 кб.

← →
Семен Сорокин © (2003-12-02 11:46) [6]

Awex (02.12.03 11:45) [5]
да хорошая утилита - правда только заголовки восстанавливает.

← →
webpauk (2003-12-02 11:47) [7]

2Awex пришли!

← →
Awex (2003-12-02 11:57) [8]

2webpauk
Выслал

2Семен Сорокин
Нет, почемуже, не только заголовки..

Вот был у нас оригинальный файл:

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:="234234";
end;

end.

Скопилировали его и прошлись по Dcu Dcu2Pas
Вот что получилось:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
asm
@@0: mov edx, offset @@20
@@5: call TControl.SetText
@@10: {ret}

@@11:
{
0: 00 FF FF FF FF 06 00 00 00 32 33 34 32 33 34 00 .

← →
webpauk (2003-12-02 12:01) [9]

нда...

← →
awex (2003-12-02 12:09) [10]

2webpauk
В принципе это самый удобный и действенный сбособ...

Файлы dcu->pas Найти похожие ветки