Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Операционные системы > Софт
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.06.2012, 15:01   #1
All_Ex
Пользователь
 
Регистрация: 06.01.2012
Сообщений: 22
По умолчанию Код для работы с fileed.dll

Выкладываю код VB6 для использования fileed.dll.(двое просили)

Private Declare Function FileEdit Lib "e:\VB6.0\Проект\fileed\fileed. dll" (ByVal hEdit As Long) As Long
Private Declare Function EditFile Lib "e:\VB6.0\Проект\fileed\fileed. dll" (ByVal hEdit As Long) As Long

Private Sub Command1_Click() 'ввод файла в Edit
Dim Rf As Long
Dim hEdit As Long
hEdit = Text1.hWnd
Rf = FileEdit(hEdit)
End Sub

Private Sub Command2_Click() 'вывод Edit в файл
Dim Rf As Long
Dim hEdit As Long
hEdit = Text1.hWnd
Rf = EditFile(hEdit)
End Sub

Private Declare Function SumCod Lib "e:\VB6.0\Проект\CRC32\fileed.d ll" (ByVal FileName As String) As Long

Private Sub Command1_Click() 'вычисление CRC32 файла
Dim FileName As String
Dim Rez As Long
Dim Sum As String
FileName = "E:\dUp.exe"
Rez = SumCod(FileName)
Sum = Hex(Rez)
Text1.Text = Sum
End Sub

Пути напишите свои.Получите стандартные диалоговые окна или CRC32 файла на выходе.
Желаю удачи.
Вложения
Тип файла: rar fileed.rar (1.2 Кб, 8 просмотров)
All_Ex вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Стандартные средства для работы с динамическими библиотеками(dll,so) Пепел Феникса Общие вопросы C/C++ 3 20.08.2011 13:11
DLL для работы с БД Alter Компоненты Delphi 2 04.06.2010 19:53
DLL для работы с изображениями bondik Общие вопросы .NET 1 29.07.2009 12:40
dll для работы с массивом alex23xandr Общие вопросы Delphi 3 25.05.2007 20:00
Создание dll файла для работы с БД Nadya БД в Delphi 2 15.02.2007 12:54