RusFAQ.ru: Программирование на Delphi

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 381
от 10.02.2006, 05:36

Вопрос № 34.720

Помогите, пожалуйста, разобраться, в чем ошибка. Пробую использовать свою DLL библиотеку (код ниже), компилируется нормально, Но как правильно в приложении вызывать не знаю. При работе приложения функции вызываться, но при завершении выдается ошибка Windows. В каких случаях нужно в разделе Uses писать ShareMem и где в самой библиотеке или в приложении? Если не трудно киньте ссылки или небольшие (до 100 кб ) статьи по созданию DLL в Delphi где понятно и доходчиво описан процесс создания библиотек Приложение: library MyDLL; uses ShareMem, Registry, Windows, SysUtils, Classes; //////////////////////////////////////////////////////////////////////////////// {Функция выдает сетевое имя компьютера} function GetComputerNetName(): string; var buffer: array[0..255] of char; size: DWord; begin size := 256; if GetComputerName(buffer, size) then Result := buffer else Result := ''; end; //////////////////////////////////////////////////////////////////////////////// {Функция выдает текущего пользователя Windows} function GetUserFromWindows(): string; var UserName : string; UserNameLen : DWord; begin UserNameLen := 255; SetLength(userName, UserNameLen); if GetUserName(PChar(UserName), UserNameLen) then Result := Copy(UserName,1,UserNameLen - 1) else Result := 'Unknown'; end; // Экспорт функций и процедур ////////////////////////////////////////////////// exports GetComputerNetName; exports GetUserFromWindows; {$R *.res} begin end.

Отправлен: 04.02.2006, 14:35 Вопрос задал: Пепеляев Александр Павлович (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Dushin Igor Здравствуйте, Пепеляев Александр Павлович! Создание и использование dll подробно описывается здесь: http://www.citforum.ru/programming/32less/les23.shtml http://www.sources.ru/magazine/0804/delphidll.html --------- Глюк без причины - признак вирусины!

Ответ отправил: Dushin Igor (статус: 4-ый класс) Отправлен: 04.02.2006, 15:33 Оценка за ответ: 5

Отвечает: Злоумышленник Здравствуйте, Пепеляев Александр Павлович! ShareMem юзают, когда DLL экспортирует любые функции или процедуры, которые получают в качестве параметров или возвращают в виде результатов строки или динамические массивы, причём ставят ShareMem первым элементом списка uses. Т. е. ты сделал всё правильно. Но твоя DLL вырубает приложение. Поэтому, чтобы не ломать голову, поменяй стринг на PChar (см., как я переделал в приложении) и всё заработает (ShareMem можно убрать). Успехов. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation function GetComputerNetName(): PChar{string}; stdcall; external 'MyLib.dll'; function GetUserFromWindows(): PChar{string}; stdcall; external 'MyLib.dll'; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text := GetComputerNetName; edit2.Text := GetUserFromWindows; end; end. ************************************************ library MyDLL; uses //ShareMem, Registry, Windows, SysUtils, Classes; //////////////////////////////////////////////////////////////////////////////// {Ôóíêöèÿ âûäàåò ñåòåâîå èìÿ êîìïüþòåðà} function GetComputerNetName(): PChar;//string; var buffer: array[0..255] of char; size: DWord; begin size := 256; if GetComputerName(buffer, size) then Result := buffer else Result := ''; end; //////////////////////////////////////////////////////////////////////////////// {Ôóíêöèÿ âûäàåò òåêóùåãî ïîëüçîâàòåëÿ Windows} function GetUserFromWindows(): PChar;//string; var UserName : string; UserNameLen : DWord; begin UserNameLen := 255; SetLength(userName, UserNameLen); if GetUserName(PChar(UserName), UserNameLen) then Result := PChar(Copy(UserName,1,UserNameLen - 1)) else Result := PChar('Unknown'); end; // Ýêñïîðò ôóíêöèé è ïðîöåäóð ////////////////////////////////////////////////// exports GetComputerNetName; exports GetUserFromWindows; begin end.

Ответ отправил: Злоумышленник (статус: 2-ой класс) Отправлен: 04.02.2006, 16:01 Оценка за ответ: 5

Отвечает: Лучников Юрий Владимирович Здравствуйте, Пепеляев Александр Павлович! Очень хорошее пособие по dll находится по адресу: http://www.rsdn.ru/article/Delphi/Delphi_7_05.xml. Успехов;)

Ответ отправил: Лучников Юрий Владимирович (статус: Студент) Отправлен: 05.02.2006, 14:05 Оценка за ответ: 5

Вопрос № 34.729

Уважаемые эксперты ответьте на такие вопросы: 1) как из программы на дельфи или из командной строки запустить удаленный доступ к сети; 2) как из программы на дельфи проверить есть ли в данный момент соединение с Интернетом; 3) посоветуйте программу типа IE_Money но с большим количеством функций. Пояснение: все это мне надо для учета работы разных пользователей в инете на одном компьютере с Win98. Заранее благодарен.

Отправлен: 04.02.2006, 17:10 Вопрос задал: Зеленский Александр Станиславович (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Slava Здравствуйте, Зеленский Александр Станиславович! Второй вопрос: один из способов проверить есть ли в данный момент соединение с Интернетом. Для работы Вам необходимо импортировать функцию InetIsOffline из URL.DLL: function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL'; а затем поместить в программу простой вызов функции для проверки статуса соединения: if InetIsOffline(0) then ShowMessage('This computer is not connected to Internet!') else ShowMessage(You are connected to Internet!'); Эта функция возвращает TRUE если соединение с интернетом отсутствует, или FALSE если соединение установлено. Файл url.dll обычно есть на большенстве компьютеров. Еще можно использовать функ-ю InternetGetConnectedState() из wininet.dll

Ответ отправил: Slava (статус: 9-ый класс) Отправлен: 04.02.2006, 19:10

Отвечает: sir henry Здравствуйте, Зеленский Александр Станиславович! 1) Для этого нужно запустить программу удаленного соединения rasdial: Shellexecute(0, 'open', 'rasdial', PChar(User+' '+password), NIL, SW_SHOW); Чтобы отключится - ту же прогу, только с параметром /DISCONNECT 2) К сожалению, несмотря на наличие специальных функций для этого в WinAPI, единственный надежный способ - пропинговать какой-либо удаленный ресурс и получить от него ответ. Как одну из функций можно применить такую: uses WinInet; function IsConnectedToInternet: Boolean; var dwConnectionTypes: DWORD; begin dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY; Result := InternetGetConnectedState(@dwConnectionTypes, 0); end; Но учтите, что даже в MSDN есть предупреждение, что верить ей и подобным функциям, нельзя.

Ответ отправил: sir henry (статус: Академик) Отправлен: 05.02.2006, 08:46

Отвечает: Лучников Юрий Владимирович Здравствуйте, Зеленский Александр Станиславович! 1) Хороший материал по поводу вопроса http://www.rsdn.ru/summary/278.xml 2) Самый простой способ - проверить локальный IP-адрес. Если машина не в сети, то ее IP всегда равен 127.0.0.1 (localhost). Успехов!

Ответ отправил: Лучников Юрий Владимирович (статус: Студент) Отправлен: 05.02.2006, 14:12 Оценка за ответ: 4

Вопрос № 34.746

Здоровенько! Как создать программу, чтобы при нажатии на Button1 она загружала в Memo1 текстовый файл по адресу: http://www.myserver.com/news.txt?

Отправлен: 04.02.2006, 21:04 Вопрос задал: Ramirez (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Dushin Igor Здравствуйте, Ramirez! См. приложение... Показано как закачать текстовый файл из интернета, не забудьте подключить в uses wininet... Приложение: uses ..., wininet; procedure Tform1.DownLoad(from,tos:string); var F: File; ResumePos,BufferLen,SumSize: DWORD; hSession, hURL: HInternet; Buffer: array[1..1024] of Byte; err: boolean; begin SumSize:=0; ResumePos:=0; //Инициализируемся AssignFile (F,tos); //Свяжемся с файлом IF FileExists (tos) then //Есть ли на диске этот файл begin Reset(f,1); //Ах, есть? Откроем! ResumePos:=FileSize(F); //Откуда докачать Seek(F, FileSize(F)); //А писать будем в конец end else ReWrite(f,1); //А раз нет, так создадим NADO:= TRUE; //Надо качать... //Открыли сессию hSession:= InternetOpen('X-Kachalka',PRE_CONFIG_INTERNET_ACCESS,nil,nil,0); //И наш УРЛ hURL := InternetOpenURL(hSession,PChar(from),nil,0,0,0); //Сколько там наш файл весит? InternetQueryDataAvailable(hURL, SumSize,0,0); label4.Caption:= IntToStr (SumSize); //Сообщим об этом if ResumePos>0 then //Если докачиваем, begin InternetSetFilePointer(hURL,ResumePos,nil,0,0); //То сместимся end; REPEAT //Качаем err:= InternetReadFile(hURL, @Buffer,SizeOf(Buffer),BufferLen); //Читаем буфер IF err= false then //Ошибка чтения begin ShowMessage ('Произошел облом '); //Сообщим и выходим exit; end; BlockWrite(f, Buffer, BufferLen); //Пишем в файл Application.Processmessages; UNTIL (BufferLen= 0) Or (NADO= FALSE); //Качаем, пока не все или надо Caption:=inttostr(strtoint(Caption)+1); end; --------- Глюк без причины - признак вирусины!

Ответ отправил: Dushin Igor (статус: 4-ый класс) Отправлен: 04.02.2006, 21:49

Отвечает: Ерёмин Андрей Здравствуйте, Ramirez! В приложении пример кода, который скачивает файл с сервера в нужную папку. Затем файл загружается в TMemo стандартным способом. Приложение: uses Wininet; function GetInetFile(const fileURL, FileName: String): boolean; const BufferSize = 1024; var hSession, hURL: HInternet; Buffer: array[1..BufferSize] of Byte; BufferLen: DWORD; chType : array[1..20] of Char; cLength : cardinal; cIndex : cardinal; f_loc:file; sAppName: string; begin Result:=False; sAppName := ExtractFileName(Application.ExeName); hSession := InternetOpen(PChar(sAppName),INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0); try hURL := InternetOpenURL(hSession,PChar(fileURL),nil,0,0,0); try AssignFile(f_loc, FileName); Rewrite(f_loc,1); repeat InternetReadFile(hURL, @Buffer,SizeOf(Buffer), BufferLen);BlockWrite(f_loc, Buffer, BufferLen); cLength := 250; cIndex := 0; HTTPQueryInfo(hURL,HTTP_QUERY_CONTENT_LENGTH,@chType,cLength,cIndex); Application.ProcessMessages(); until BufferLen = 0; CloseFile(f_loc); Result:=True; finally InternetCloseHandle(hURL) end finally InternetCloseHandle(hSession) end end; procedure TForm1.Button2Click(Sender: TObject); var FileOnNet, LocalFileName: string; begin FileOnNet:='http://www.myserver.com/update.txt'; LocalFileName:=ExtractFilePath(Application.ExeName)+'temp.txt'; If GetInetFile(FileOnNet,LocalFileName)=True Then Memo1.Lines.LoadFromFile(LocalFileName); end; --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессионал) Отправлен: 05.02.2006, 07:41

Вопрос № 34.756

Здравствуйте, эксперты! Больше всего ненавижу сидеть часами, искать ошибку в программе, а потом понимать, что это не твоя ошибка. Вот и сейчас писал прогу - локальный посиковик. Наткнулся на такой случай, что компонент "Indy Clients" "IdFTP" не может поменять директорию. Как оказалось, все папки, которые либо начинаются с пробела, либо содержат непрерывную последовательность пробелов, считаются неработающими. IdFTP просто внаглую удаляет лишние пробелы! А потом пишет, что нет такой директории. Балбес! Даже Total Commander в первом случае (когда в начале пробелы) не меняет директорию. Надеюсь, что найдется среди вас хоть кто-нибудь, который сталкивался с подобной проблемой. Заранее, спасибо.

Отправлен: 05.02.2006, 03:38 Вопрос задал: Repose (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ерёмин Андрей Здравствуйте, Repose! Попробуйте заменять пробелы на комбинацию символов "процент20" - "%20". --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессионал) Отправлен: 05.02.2006, 07:43

Отвечает: sir henry Здравствуйте, Repose! Вам просто надо было взглянуть на то, как любая инетовская прога обращается с пробелами - она их просто заменяет на символ пробела - в дельфийской нотации это будет $20 или если посмотреть например в IE или Mozilla - %20. :)

Ответ отправил: sir henry (статус: Академик) Отправлен: 05.02.2006, 08:53

Вопрос № 34.759

Здравствуйте, господа Эксперты! Мне нужно написать прогу, которая бы отправляла SMS-ки на определенный номер сотового через Инет. Проблема в том, что я никогда не писал программ для сети и не знаю, какие компоненты использовать, Буду очень признателен, если подскажете пример работы с нужными компонентами или дадите ссылки. НЕ ПОДХОДИТ вариант типа "робот" - заполнение и оправка через форму на сайте оператора сотовой связи. Заране благодарен!

Отправлен: 05.02.2006, 04:15 Вопрос задал: Ваньков Петр Семенович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Slava Здравствуйте, Ваньков Петр Семенович! Вот тут есть статья на эту тему http://www.kamlit.ru/docs/journals/cd/cd22/off-line/pr/22/article_10.php.htm или та же статья тут http://wizard901.narod.ru/Clause/SMS.htm

Ответ отправил: Slava (статус: 9-ый класс) Отправлен: 05.02.2006, 06:52

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.14 (бета) от 09.02.2006

---

Subscribe.Ru Поддержка подписчиков Другие рассылки этой тематики Другие рассылки этого автора

Подписан адрес: Код этой рассылки: comp.soft.prog.delphiplus Архив рассылки

Отписаться Вебом Почтой Вспомнить пароль

---

В избранное