Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
DK9
0 / 0 / 0
Регистрация: 22.01.2016
Сообщений: 3
1

Программа работает на Delphi 2007 или более ранней но не работает на старших версиях (10.1 например)

10.11.2016, 19:23. Просмотров 862. Ответов 4
Метки нет (Все метки)

В программе используются дополнительные файлы и dll написанные на fortran их кода нет ;( в ранних вернсиях все хорошо, в старшей 10.1 или любая версия от Embarcadero выдает ошибку (101 -не открывается файл свойств веществ). Я понимаю что можно и в 2007 писать но очень хочется решить проблемму, чтоб в голове больше не летала)
Код программы:
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
program Stirling;
 
{$APPTYPE CONSOLE}
 
{%File 'HELIUM.FLD'}
{%File 'HMX.BNC'}
 
uses
  SysUtils,
  RefProb in 'RefProb.pas';
 
var
  p:integer;
  s:TFortString;
  x,y,z:arr;
  pp,t,h:Double;
  D,Dl,Dv,q,e,ss,cv,cp,w: Double;
     
begin
  { TODO -oUser -cConsole Main : Insert code here }
 
 for p := 1 to 20 do
 begin
   z[p]:=0;
 end;
 z[1]:=1;
 RFP_SETUPdll(1,FortStr('fluids/helium.fld'),FortStr('fluid/hmx.bnc'),FortStr('DEF'),@p,s);
 writeln(p);
 readln;
{
c  outputs:
c     ierr--error flag:  0 = successful
c                      101 = error in opening file
c                      102 = error in file or premature end of file
c                     -103 = unknown model encountered in file
c                      104 = error in setup of model
c                      105 = specified model not found
c                      111 = error in opening mixture file
c                      112 = mixture file of wrong type
c                      114 = nc<>nc from setmod
c     herr--error string (character*255 variable if ierr<>0)
c     [fluid parameters, etc. returned via various common blocks]     }
 
 t:=300;
 pp:=1000;
 TPFLSHdll (t,pp,z,@D,@Dl,@Dv,x,y,@q,@e,@h,@ss,@cv,@cp,@w,@p,s);
 writeln(h);
 Readln;
 
 
 
 
end.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.11.2016, 19:23
Ответы с готовыми решениями:

СУММЕСЛИМН: в более ранней версии Excel функция не работает
Добрый день уважаемые, помогите пожалуйсто советом в таком вопросе: При создании базы данных в...

Проект с API 25 не работает на более ранних версиях
Подскажите, пожалуйста. Опытные. Создаю проект в intlje IDE от jet brains и у меня по дефолту...

Почему функция работающая в Delphi 7 не работает в Delphi 2007 и в 2009 ??
Данный код работал нормально в D7: procedure TForm1.Button1Click(Sender: TObject); begin...

Где находится опция "Добавить интерактивность" в Excel 2007 и более новых версиях?
В &quot;Excel 2003&quot; если сделать так: Файл - Сохранить как... Откроется окно &quot;Сохранение документа&quot;;...

DrawString не работает с некоторыми шрифтами, например, Fixedsys или Terminal
Доброго всем вечера. Хочу написать на форме текст определенным шрифтом, к примеру Fixedsys или...


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

Или воспользуйтесь поиском по форуму:
4
D1973
11.11.2016, 06:20
  #2
 Комментарий модератора 
DK9, Предупреждаю! Выкладывайте файлы на форум, а не на какой-то завирусованный файлообменник!
0
DK9
0 / 0 / 0
Регистрация: 22.01.2016
Сообщений: 3
11.11.2016, 13:26  [ТС] 3
не разобрался сразу как это сделать.
0
Вложения
Тип файла: rar test.rar (3.33 Мб, 1 просмотров)
_Фролов_
10 / 10 / 7
Регистрация: 18.10.2015
Сообщений: 160
11.11.2016, 14:07 4
Лучший ответ Сообщение было отмечено DK9 как решение

Решение

Char на AnsiChar и гуд

Delphi
1
 TFStr = array[0..5099] of AnsiChar;   // Длина соответствует максимальной длине строки в коде Фортрана
1
DK9
0 / 0 / 0
Регистрация: 22.01.2016
Сообщений: 3
11.11.2016, 14:17  [ТС] 5
Благодарю!) Счастья и удачи тебе!)
0
11.11.2016, 14:17
Ответ Создать тему
Опции темы

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