Форум: "Прочее";
Текущий архив: 2012.03.25;
Скачать: [xml.tar.bz2];

Вниз

Delphi XE2 в "режим" Delphi 7   Найти похожие ветки 

← →
Vyacheslav   (2011-11-27 16:16) [0]

Здравствуйте.
1) Возможно ли как-то перенастроить компилятор, чтобы работали библиотеки, программы разработанные для Delphi 7, дабы не переписывать последних?
Проблема возникла в процессе попытки использовать билиотеку uZpRunConsoleApp в Delphi XE2
(код http://www.koders.com/delphi/fidDB05C6361540F62D532FC7C960D4111CE3AAEDB3.aspx)

---

← →
Плохиш ©   (2011-11-27 16:36) [1]

Нет.

---

← →
DVM ©   (2011-11-27 16:50) [2]

> Vyacheslav


> uZpRunConsoleApp в Delphi XE2

Ну так возьми и исправь, делов то. Что отличает XE2 от D7 ? Размер Char в первую очередь. После беглого просмотра кода, глаз зацепился за

StringsToMultiSz

Ее скорее всего надо править. В остальном почти ничего.

---

← →
картман ©   (2011-11-27 16:54) [3]

> Ее скорее всего надо править. В остальном почти ничего.

еще

 dwTextLength := Length(aText);
 if (dwTextLength > 0) then
   Result := WriteFile(aWriteHandle, aText[1], dwTextLength, dwBytesWritten,
     nil) and (dwBytesWritten = dwTextLength)


---

← →
картман ©   (2011-11-27 16:55) [4]

хотя: Length(aText); - кол-во букв?

---

← →
Anatoly Podgoretsky ©   (2011-11-27 18:03) [5]

Зачем же менял на XE2

---

← →
Eraser ©   (2011-11-27 18:35) [6]

> [4] картман ©   (27.11.11 16:55)
> хотя: Length(aText); - кол-во букв?

да. нужно
dwTextLength := Length(aText) * SizeOf(Char);

> WriteFile(aWriteHandle, aText[1],

WriteFile(aWriteHandle, Pointer(aText)^ ну это уже не критично.

---

← →
QAZ   (2011-11-29 10:26) [7]

> Зачем же менял на XE2

видимо ниасилил установку d7 в win7 :D

---

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

Форум: "Прочее";
Текущий архив: 2012.03.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.003 c