Вверх ↑
Этот топик читают: Гость
Ответов: 68
Рейтинг: 1
#1: 2014-11-08 13:25:17 ЛС | профиль | цитата
Всем добрый день. Прошу помощи т.к ввиду неопытности не могу решить проблему уже дней 10. Все имеющиеся примеры не помогают. Суть проблемы нужно сделать чтоб по клику на кнопку из файла DLL ,брались данные о расположении планет т.е градус выбранной планеты. В распоряжении имеются - сама DLL и библиотека запросов к ней написанная на VB.NET. Прошу если не сложно помочь мне разобраться в этом. С уважением ко всем.

Вот ссылка на файлы. https://yadi.sk/d/zDy1ZH5hca4Ch

P.S

Буду очень благодарен если кто то поможет и сделает готовый пример. Напримере вызова функции jday (получение юлианской даты.)
карма: 1

0
Ответов: 1343
Рейтинг: 31
#2: 2014-11-08 15:40:19 ЛС | профиль | цитата
kir1381 писал(а):
из файла DLL


увы, компонент есть, но он кривой, одни ошибки с ним... CallDllEx
карма: 2

0
Ответов: 8928
Рейтинг: 823
#3: 2014-11-08 15:54:46 ЛС | профиль | цитата
kir1381, может кто из более грамотных сделает/подправит, а у меня не получилось Даёт ответ "Точка входа не найдена"
code_34571.txt
карма: 19

0
файлы: 1code_34571.txt [1.4KB] [303]
Ответов: 68
Рейтинг: 1
#4: 2014-11-08 16:41:47 ЛС | профиль | цитата
Спасибо Вам за попытку помощи. Надеюсь все же кто то поможет решить проблему. С уважением
карма: 1

0
Ответов: 824
Рейтинг: 138
#5: 2014-11-08 17:55:53 ЛС | профиль | цитата
[url=http://www.astro.com/swisseph/swephprg.htm#_Toc379890553 писал(а):
Programmer's Documentation[/url]]In Delphi 2.0 the declaration of the function swe_calc() looks like this:
#pas
xx : Array[0..5] of double;
function swe_calc (tjd     : double;     // Julian day number
                   ipl      : Integer;    // planet number
                   iflag            : Longint;    // flag bits
                   var xx[0]     : double;
                   sErr            : PChar       // Error-String;
    ) : Longint; stdcall; far; external 'swedll32.dll' Name '_swe_calc@24';
A nearly complete set of declarations is in file \sweph\delphi2\swe_d32.pas.A small sample project for Delphi 2.0 is also included in the same directory (starting with release 1.25 from June 1998). This sample requires the DLL to exist in the same directory as the sample.
swe_d32.pas

[url=http://forum.argo-school.ru/showthread.php?t=904 писал(а):
LordWilex[/url]]Сами файлы эфемерид, если у вас их нет, - можно скачать здесь: ftp://ftp.astro.com/pub/swisseph/ephe/. иначе почти ни чего работать не будет!!!


карма: 1

0
Ответов: 68
Рейтинг: 1
#6: 2014-11-08 18:05:13 ЛС | профиль | цитата
Уважаемый sashaoli

Спасибо большое за помощь, но если не сложно Вы не могли бы это все сделать как бы в проекте .sha ?
Буду очень благодарен.
карма: 1

0
Ответов: 8928
Рейтинг: 823
#7: 2014-11-08 19:56:27 ЛС | профиль | цитата
sashaoli, ой, получилось (с дополнительным именем функции )
kir1381, вот эта функция swe_difdeg2n, т. е. любую можно сделать
code_34574.txt
Надо нужную функцию вставить и сверху передаваемые данные, и парсировать их в нужные переменные.
карма: 19

0
файлы: 1code_34574.txt [1.4KB] [422]
Ответов: 824
Рейтинг: 138
#8: 2014-11-08 20:08:57 ЛС | профиль | цитата
А я, вот сидел, читал доку, пытаясь понять чего какая функция делает и чего выдает... И тут гости пришли....
карма: 1

0
Ответов: 1343
Рейтинг: 31
#9: 2014-11-08 20:10:49 ЛС | профиль | цитата
Леонид, можешь пожалуйста сделать IC для использования DLL файлов, а то CallDllEx, не работает со многими DLL
карма: 2

0
Ответов: 68
Рейтинг: 1
#10: 2014-11-08 20:12:20 ЛС | профиль | цитата
Ребят , Вы простите , но я новичок и не знаю как представленные Вами коды в .txt пользовать. Если не сложно Вы можете сделать проект который откроется в HiAsm и покажет примерную схему использования. Заранее благодарен.
карма: 1

0
Ответов: 824
Рейтинг: 138
#11: 2014-11-08 20:19:39 ЛС | профиль | цитата
Rysik писал(а):
можешь пожалуйста сделать IC для использования DLL файлов, а то CallDllEx, не работает со многими DLL
Так выше и сделано для DLL.
------------ Дoбавленo в 21.19:
kir1381, Это не ТХТ, это схема HiAsm. Смотри Как скопировать и вставить схему?
карма: 1

0
Ответов: 1343
Рейтинг: 31
#12: 2014-11-08 20:19:43 ЛС | профиль | цитата
sashaoli писал(а):
Так выше и сделано для DLL


тут пример не совсем для всех, лишь для 2-х параметров ввиде double, так вот как бы сделать что бы был IC с 1 верхней точкой с таким же синтаксисом как у CallDllEx, метод исполнения и событие с результатом
карма: 2

0
Ответов: 824
Рейтинг: 138
#13: 2014-11-08 21:04:48 ЛС | профиль | цитата
kir1381, Вот краткая инстукция в картинках


карма: 1

0
Ответов: 68
Рейтинг: 1
#14: 2014-11-08 21:12:03 ЛС | профиль | цитата
sashaoli Спасибо с этим разобрался. А дальше беда.

Плохо конечно когда не знаешь ни одного языка программирования и пытаешься что то сделать. Тем более когда среду разработки HiAsm только недавно начал изучать. Ребят в силу выше сказанного прямо прошу помощи. Мне конкретно нужны всего пару функций из этой DLL.
1)jday - получение юлианской даты
2)plc - получение градусов планет.
Может в будущем и больше но пока только это. Ребят помогите , напишите готовую схему как получить эти данные из DLL в поля текста.

Заранее благодарен.
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#15: 2014-11-08 21:21:08 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2021-05-22 08:07:07
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)