Разделы сайта:

Delphi.int.ru

Новости сайта
Регистрация »
Файловый архив
∙ Статьи
∙ Компоненты
∙ Plug-in's
∙ Документация
∙ Исходники
∙ Изображения
∙ Игры
∙ Программы
Рассылки сайта
Дружеств. сайты
Каталог ссылок

Delphi.int.ru Expert

Разделы рассылки:

» Авторское слово
» Обучение Delphi
» Delphi.int.ru Expert
» Статья по Delphi
» Файловый архив
» Ссылки
» Юмор

Количество читателей рассылки (22.02.2007, 21:00):
5416+939+257= 6612.

Связь по e-mail:

admin@delphi.int.ru

Текст вопроса:

Здравствуйте, подскажите как перезапустить какой-нибудь процесс. В данном случае у меня explorer.

Автор вопроса: Соболев Максим Евгеньевич (статус: Посетитель)
Дата и время отправки вопроса: 02.11.2006, 21:20
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 5
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Denisss (статус: 2-ой класс), 03.11.2006, 15:19]:

Здравствуйте, Соболев Максим Евгеньевич!

Привожу пример перезапуска процесса в приложении. Комментарии присутствуют почти в каждой строчке.

Удачи!

Приложение:

uses TlHelp32, PsAPI ... ... // procedure/function ...... var hSnapShot, hProcID: THandle; pe32: TProcessEntry32; lpExitCode: Cardinal; lpProcName: array[0..MAX_PATH - 1] of Char; const // Имя искомого процесса strExplorer: String = 'explorer.exe'; begin // Получаем "снимок" процессов hSnapShot:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); if (hSnapShot = 0) then // "Снимок" не получен Exit; // Ошибка try // Подготавливаем структуру TProcessEntry32 pe32.dwSize:= sizeof(TProcessEntry32); // Если есть хоть один процесс, то начинаем цикл if (Process32First(hSnapShot, pe32)) then repeat // Сравниваем имя ехе-файла процесса с искомым if (LowerCase(pe32.szExeFile) = strExplorer) then begin // Получаем хэндл процесса (со всеми правами) hProcID:= OpenProcess(PROCESS_ALL_ACCESS, false, pe32.th32ProcessID); // Если хэндл не получен, то завершаем работу if (hProcID = 0) then Exit; // Ошибка try // Получаем полный путь к программе GetModuleFileNameEx(hProcID, 0, lpProcName, MAX_PATH); lpExitCode:= 0; // Получаем код завершения процесса if not (GetExitCodeProcess(hProcID, lpExitCode)) then Exit; // Ошибка // Завершаем процесс TerminateProcess(hProcID, lpExitCode); finally // Закрываем хэндл процесса CloseHandle(hProcID); end; // Запускаем новый процесс WinExec(lpProcName, SW_SHOWNORMAL); // Завершаем цикл Break; end; // Цикл пока есть еще процессы в списке ("снимке") until not Process32Next(hSnapShot, pe32); finally // Закрываем список ("снимок") процессов CloseHandle(hSnapShot); end; end; ...

Оценка за ответ: 5.
Комментарий: Большое спасибо!!! Всё классно работает.

Текст вопроса:

Как в Delphi можно работать с SNMP в частности
с snmpget?

Автор вопроса: Павел (статус: Посетитель)
Дата и время отправки вопроса: 04.11.2006, 23:49
Получено ответов на вопрос: 0
Сообщений в форуме вопроса: 1
Страница данного вопроса >>

» Ответы на данный вопрос:

К сожалению, ответов на данный вопрос не поступило...

Текст вопроса:

Здравствуйте. В данный момент учусь на программиста, изучаю Delphi, задали мне кааую-то глупую задачу, которую я решил в пару минут, а над самым простым вопросом маюсь и маюсь, вы то уж точно знаете на него ответ, вопрос звучит так:"Среди функций для работы с символами найдите функцию, которая все строчные и прописные буквы латинского алфавита приводит к одному формату". С уважением, Сергей Анатольевич.

Автор вопроса: Полушин Сергей Анатольевич (статус: Посетитель)
Дата и время отправки вопроса: 09.11.2006, 17:46
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 5
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: bruder (статус: 4-ый класс), 09.11.2006, 17:58]:

Здравствуйте, Полушин Сергей Анатольевич!
Функции UpperCase(Str: String) и LowerCase(Str: String) преобразуют строку соответственно в верхний и нижний регистры.

Приложение:

var Str1, Str2, Str3: String; { ... } Str1:='hELLo'; Str2:=UpperCase(Str1); { Str2 = "HELLO" } Str3:=LowerCase(Str1); { Str3 = "hello" }

Оценка за ответ: 5.
Комментарий: Коротко и ясно. Спасибо.

2. [Отвечает: Alex Van Glukhman (статус: 6-ой класс), 10.11.2006, 07:45]:

Здравствуйте, Полушин Сергей Анатольевич!
Для работы со строками включающими символы национальной кодировки в том числе и WideString существуют функции:
AnsiUpperCase() - для преобразования символов в верхний регистр и
AnsiLowerCase() - соответственно в нижний.
С русским языком работает великолепно.
Функции описаны в модуле SysUtils.
Удачи!!!

Оценка за ответ: 5.
Комментарий: Спасибо большое. Действительно, мне даже стыдно за глупый вопрос.

Текст вопроса:

Обучаюсь Delphi, заочно, задали вопрос:Запишите определение типа данных – строка в языке. Что за вопрос такой так и не понял, верю вашему профессионализму, думаю вы поймёте. С уважением, Сергей Анатольевич.

Автор вопроса: Полушин Сергей Анатольевич (статус: Посетитель)
Дата и время отправки вопроса: 09.11.2006, 17:49
Получено ответов на вопрос: 4
Сообщений в форуме вопроса: 2
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: bruder (статус: 4-ый класс), 09.11.2006, 18:02]:

Здравствуйте, Полушин Сергей Анатольевич!
Строковый тип данных - один из самых часто используемых в программах тип. Действительно, без него не обходится практически ни один алгоритм. Даже программы, выполняющие исключительно математические операции, порой, написаны с использованием строковых типов данных.
Строка - это последовательность символов. В Object Pascal существует несколько строковых типов.Основные: ShortString,AnsiString,WideString.
(Взято из "Работа со строковыми типами данных" Автор: Ерёмин Андрей)

Оценка за ответ: 4.

2. [Отвечает: Dron (статус: 10-ый класс), 09.11.2006, 18:18]:

Здравствуйте, Полушин Сергей Анатольевич!
Дополню ответ bruder'a, т.к. теорию он рассказал, а пример не привёл :-)
Определение строковых переменных делается следующим образом:
var
str1: string; //Обычная строка
str2: string[100]; //Строка с максимальной длиной 100 символов
str3: WideString; //Строка другого типа (более вместимая)
str4: WideString; //Строка, в которой могут содержаться дополнительные (8-битные) символы
Желаю удачи в обучении! :-)

Оценка за ответ: 5.
Комментарий: Я ,честно говоря, даже вопрос не понял. Помоему, тут не надо определять переменную, но всё равно спасибо.

3. [Отвечает: Alex Van Glukhman (статус: 6-ой класс), 10.11.2006, 08:01]:

Здравствуйте, Полушин Сергей Анатольевич!
Просто круто поставленный вопрос. Видимо слишком умный препод которому только одному себе известно что он хочет спросить, либо просто напрочь не имеет представления о п 88;едмете которому обучает Вас.
Если имеется ввиду определение типа строка то это -
type
MyString = String;
MyWideString = WideString;
MyPChar = PChar и т.д.
а если это объявление и определение переменнных или констант то пишем следующее но это не определение типа данных.
var
str: String = 'Какая-то строка';
str1: String;
const
MyConst = 'Моя константа';
Поэтому советую у препода уточнить что он хочет

Оценка за ответ: 5.
Комментарий: Спасибо, что разделили моё мнение о том, что этот препод сам ничего не знает. Перед этим изучал Visual Basic, по книге, которую написал этот же препод, он написал про функцию str(...){не буду описывать}, в VB 6.0 она не работала, скачал самоучитель, оказалось, что эта функция Mid(...), правда спасибо! С уважением Сергей Анатольевич!

4. [Отвечает: min@y™ (статус: 5-ый класс), 10.11.2006, 08:20]:

Автор! Судя по твоим вопросам №№153, 154 тебе нужно срочно:
1) Пойти в ближайший книжный магаз и купить книжку по Delphi;

и/или

2) Пойти в интернет и скачать книжку оттуда.

Поверь мне, в этом случае на решение вопросов твоего препода ты будешь тратить считанные минуты.

З.Ы. Все мы когда-то начинали. :))

Оценка за ответ: 3.
Комментарий: Я итак скачал 2 самоучителя, но таких функций там не описано, а вообще я неплохо язык знаю.

Текст вопроса:

Помогите найти простой компонент для работы с com портом для Delphi7 (желательно с примером его использования).

Автор вопроса: Каменцев (статус: Посетитель)
Дата и время отправки вопроса: 10.11.2006, 08:36
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: min@y™ (статус: 5-ый класс), 13.11.2006, 08:19]:

У меня есть компонент TDLPortIO, он позволяет работать не только с COM-портами, а со всеми портами с адресами в диапазоне $100...$FFFF. Я, например, с успехом его юзаю на работе для доступа к плате в ISA-слоте. Компонент халявный.

Скачать его можно отсюдова: http://www.torry.net/vcl/system/portaccess/dlportio.zip

З.Ы. Еще компоненты для работы с портами: http://www.torry.net/pages.php?id=227

Оценка за ответ: 4.

Текст вопроса:

Здравствуйте. Есть приложение и некий файл Test.dat. Приложение периодически осуществляет чтение/запись в этот файл. Подскажите пожалуйста, как сделать так, чтобы пока приложение запущено файл Test.dat нельзя было скопировать проводником или Total commander'ом

Автор вопроса: Романов М.Ю. (статус: Посетитель)
Дата и время отправки вопроса: 11.11.2006, 15:00
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Alex Van Glukhman (статус: 6-ой класс), 11.11.2006, 16:38]:

Здравствуйте, Романов М.Ю.!

var
Form1: TForm1;
// через этот поток мы будем работать с файлом.
// Для нескольких файлов — несколько потоков.
fs: TFileStream;

implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
//при открытии вешаем ограничение. Теперь никто
//не сможет трогать файл
fs:=TFileStream.Create('D:\myfile.txt', fmOpenRead, fmShareDenyNone);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Снимаем ограничение.
fs.Free;
end;

Удачи

2. [Отвечает: Елизаров Алексей Дмитриевич (статус: 1-ый класс), 12.11.2006, 18:25]:

Здравствуйте, Романов М.Ю.!
Попробуйте использовать права для доступа к файлам.
Их надо объявлять при инициализации переменной типа TFileStream.
Вот они:
fmShareCompat-всем приложениям разрешено работать с данным файлом.
fmShareExlusive-никто, кроме Вашего приложения не может использовать файл.
fmShareDenyWrite-другие приложения могут открыть файл только для чтения.
fmShareDenyRead-другие приложения могут открыть файл только для записи.
fmShareDenyNone-не мешать другим приложениям работать с файлом.

Приложение:

[B]var[/B] [B]f:TFileStream[/B] [B]begin[/B] [B]f:=TFileStream.Create('Имя файла',режим открытия[fmCreate,fmOpenRead,fmOpenWrite,fmOpenReadWrite],права доступа к файлу);[/B] После использования надо вызвать метод Free, чтобы закрыть файл: [B]f.free;[/B]

Текст вопроса:

Здравствуйте, уважаемые эксперты!
Можно ли конвертировать *.pdf-файл в *.rtf или хотя бы в *.doc какими-то средствами в программе? Программа загружает различные файлы в TRichEdit, перед этим преобразуя их. Для конвертирования из doc и html в rtf используется MSWord, это делается довольно легко... А вот pdf - формат нестандартный... Может быть, кто-нибудь работал с этим форматом?
Заранее благодарю за Ваши ответы!

Автор вопроса: Sunshine (статус: Посетитель)
Дата и время отправки вопроса: 12.11.2006, 08:39
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 4
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Alex Van Glukhman (статус: 6-ой класс), 12.11.2006, 18:22]:

Здравствуйте, Sunshine!
PDF формат стандартный, но конвертация возможна только с помощью сторонних компонентов или ActiveX компонентов из библиотек программ конвертеров например от плагина под Adobe Aerial, Fine Reader и k 6;ругие - самый мутор не в их инсталляции а в нахождении нужной процедуры и функции в библиотеке. Поэтому проще сначала конвертнуть а потом внедрить уже в RTF формате

Оценка за ответ: 2.
Комментарий: Я же чётко сказал, что это нужно делать программно! А вы мне говорите совсем про другое... Эта программа - редактор. Какой файл выберет пользователь - программа не знает, поэтому и конвертировать нужно "на лету". Про сторонние компоненты вы сказали, но ни ссылок на них, ни хотя бы названия не последовало... :(

2. [Отвечает: Матвеев Игорь Владимирович (статус: Средний уровень), 13.11.2006, 07:26]:

Здравствуйте, Sunshine!
Скажу толдько, что PDF - Portable Document Format, Так он потому о переносимый, что сохраняется данные о странице, а не текст как таковой, текста может и не быть как текста. Конвертировать напрямую это вообще врядли возможно, поскольку кроме того, что текста может и не быть, документ божет быть и защищен, но можите поискать утилиту (ключевое слово pdf2txt) и сипользовать ее через командную строку. Можно еще использовать Pdf2Bmp, которая идет с FineReader'ом, конвертировать в Bmp, а как уж разпознавать потом - Ваше дело, может тот же FineReader попробовать через командную строку использовать.

Оценка за ответ: 4.

Текст вопроса:

Добрый вечер, уважаемые эксперты! Нужно реализовать обновление программы. Пользуюсь следующей функцией (см. вставку). Первая часть проходит нормально (получение инфы и т.д.), а вот при загрузке файла обновления (~1 MB) данная функция не справляется - скачивает только около 150 KB и говорит, что все скачала. Данный эффект наблюдается при маленькой скорости модема. А надо, чтобы скачивание происходило при любых условиях, пусть даже скорость будет совсем маленькая. И желательно, чтобы прогресс загрузки отображался на ProgressBar. Заранее спасибо...

Приложение:

function DownloadFile(SourceFile, DestFile: string): Boolean; begin try Result:=UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; except Result:=False; end; end;

Автор вопроса: feenords (статус: 1-ый класс)
Дата и время отправки вопроса: 13.11.2006, 15:37
Получено ответов на вопрос: 4
Сообщений в форуме вопроса: 3
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Alex Van Glukhman (статус: 6-ой класс), 13.11.2006, 22:12]:

Здравствуйте, feenords!
Может есть смысл производить обновление - т.е. загрузку файла через TFileStream предварительно сосчитав размер файла и данное значение связав с TProgressBar. Тогда остаётся контролировать по лученное количество скачанных байтов, что будет отражено в ProgressBar.

Оценка за ответ: 4.

2. [Отвечает: Матвеев Игорь Владимирович (статус: Средний уровень), 14.11.2006, 03:41]:

Здравствуйте, feenords!
По-поводу отображения прогресса, UrlDownloadToFile будет вызывать метод IBindStatusCallback.OnProgress интерфейса IBindStatusCallback, если указать его в последнем параметре (смотрите MSDN).
Есть и другой способ загрузки файлов из интернета. Смотрите в приложении пример, качает с докачкой, использует InternetOpen/InternetReadFile.
http://expert.delphi.int.ru/download_23

Оценка за ответ: 5.

3. [Отвечает: min@y™ (статус: 5-ый класс), 14.11.2006, 08:40]:

Писал я когда-то прогу, так, ради развлекухи, для скачивания креативов с удафкома в виде файлов :)). В ней есть и прогрессбар и всё остальное. Могу прислать.

В приложении привожу модуль из этой моей проги, который отвечает за закачку файлов.

Приложение:

unit uDownloader; interface uses General, //============================================================================== Classes, SysUtils, WinInet, Windows, ExtCtrls; type TDownloaderStatusEvent = procedure (Sender: TObject; const ByTimer: Boolean) of object; TCustomDownloader = class private FURL: string; FBufferSize: Word; FhInet, FhFile: HINTERNET; FStream: TMemoryStream; FStatus: string; FFileName: string; FErrorCode: TDownloaderError; FDeltaSize: Cardinal; FTimer: TTimer; FOnStatus: TDownloaderStatusEvent; procedure SetURL(const ANewURL: string); procedure OnTimer(Sender: TObject); function GetInterval: Cardinal; procedure SetInterval(const ANewInterval: Cardinal); protected procedure DoOnStatus(const ByTimer: Boolean); public constructor Create; virtual; destructor Destroy; override; procedure Execute; virtual; abstract; property URL: string read FURL write SetURL; property BufferSize: Word read FBufferSize write FBufferSize; property hInet: HINTERNET read FhInet write FhInet; property Stream: TMemoryStream read FStream; property Status: string read FStatus; property FileName: string read FFileName; property ErrorCode: TDownloaderError read FErrorCode; property DeltaSize: Cardinal read FDeltaSize; property Interval:Cardinal read GetInterval write SetInterval; property OnStatus: TDownloaderStatusEvent read FOnStatus write FOnStatus; end; THtmlDownloader = class(TCustomDownloader) public procedure Execute; override; end; TImageDownloader = class(TCustomDownloader) private FFileSize: Cardinal; FProgress: Integer; public constructor Create; override; procedure Execute; override; property FileSize: Cardinal read FFileSize; property Progress: Integer read FProgress; end; implementation uses Main; { TCustomDownloader } constructor TCustomDownloader.Create; begin inherited; FURL:= ''; FBufferSize:= Settings.DownloadBufferSize; FhFile:= nil; FhInet:= nil; FStream:= TMemoryStream.Create; FStatus:= ''; FErrorCode:= deSuccess; FDeltaSize:= 0; FTimer:= TTimer.Create(nil); FTimer.OnTimer:= OnTimer; FTimer.Enabled:= False; end; destructor TCustomDownloader.Destroy; begin FStream.Free; Ftimer.Free; inherited; end; procedure TCustomDownloader.DoOnStatus(const ByTimer: Boolean); begin if Assigned(FOnStatus) then FOnStatus(Self, ByTimer); end; {function TCustomDownloader.GetFileName: string; var Index: Integer; begin Result:= ''; for Index:= Length(FURL) downto 1 do if FURL[Index] <> '/' then Result:= FURL[Index] + Result else Break; end; } function TCustomDownloader.GetInterval: Cardinal; begin Result:= FTimer.Interval; end; procedure TCustomDownloader.SetInterval(const ANewInterval: Cardinal); begin if ANewInterval <> FTimer.Interval then FTimer.Interval:= ANewInterval; end; procedure TCustomDownloader.OnTimer(Sender: TObject); begin DoOnStatus(True); end; procedure TCustomDownloader.SetURL(const ANewURL: string); begin if FURL <> ANewURL then begin FURL:= ANewURL; FFileName:= ExtractFileNameFromURL(FURL); end; end; { THtmlDownloader } procedure THtmlDownloader.Execute; var Buffer: array of Char; Success: Boolean; Readed, ReadedTotal: Cardinal; begin FStatus:= 'Клянчу страницу ' + FURL + '...'; DoOnStatus(False); FhFile:= InternetOpenUrl(FhInet, PChar(FURL), nil, 0, INTERNET_FLAG_NO_COOKIES or INTERNET_FLAG_NO_CACHE_WRITE, 0); if FhFile = nil then begin FErrorCode:= deInternetProblem; Exit; end; SetLength(Buffer, FBufferSize); FStatus:= 'Заливаю страницу ' + FURL + '...'; DoOnStatus(False); ReadedTotal:= 0; FTimer.Enabled:= True; repeat Success:= InternetReadFile(FhFile, @Buffer[0], Length(Buffer), Readed); if Success then FStream.Write(Buffer[0], Readed); Inc(ReadedTotal, Readed); FStatus:= 'Заливаю страницу ' + FURL + ' - [' + FileSize2Str(ReadedTotal) + ']'; FDeltaSize:= Readed; DoOnStatus(False); until (Readed = 0) or not Success or MainForm.FCancelled; FTimer.Enabled:= False; if not Success then FErrorCode:= deInternetProblem; end; { TImageDownloader } constructor TImageDownloader.Create; begin inherited; FFileSize:= 0; FProgress:= 0; end; procedure TImageDownloader.Execute; var Buffer: array of Char; Success: Boolean; Readed, ReadedTotal: Cardinal; begin FStatus:= 'Клянчу картинку ' + FURL + '...'; DoOnStatus(False); FhFile:= InternetOpenUrl(FhInet, PChar(FURL), nil, 0, INTERNET_FLAG_NO_COOKIES or INTERNET_FLAG_NO_CACHE_WRITE, 0); if FhFile = nil then begin FErrorCode:= deInternetProblem; Exit; end; if (not InternetQueryDataAvailable(FhFile, FFileSize, 0, 0)) or (FFileSize = 0) then begin FErrorCode:= deFileNotFound; Exit; end; SetLength(Buffer, FBufferSize); FStatus:= 'Заливаю картинку ' + FURL + '...'; DoOnStatus(False); ReadedTotal:= 0; FTimer.Enabled:= True; repeat Success:= InternetReadFile(FhFile, @Buffer[0], Length(Buffer), Readed); if Success then FStream.Write(Buffer[0], Readed); Inc(ReadedTotal, Readed); FStatus:= 'Заливаю картинку ' + FURL + ' - [' + FileSize2Str(ReadedTotal) + ']'; FDeltaSize:= Readed; FProgress:= Round(100 * ReadedTotal / FFileSize); if FProgress > 100 then FProgress:= 100; DoOnStatus(False); //Sleep(200); until (Readed = 0) or not Success or MainForm.FCancelled; FTimer.Enabled:= False; if not Success then FErrorCode:= deInternetProblem; end; end.

Оценка за ответ: 5.
Комментарий: Вышлите, если не сложно! (feenords@rambler.ru)

4. [Отвечает: Dron (статус: 10-ый класс), 14.11.2006, 12:09]:

Здравствуйте, feenords!
Я, например, использовал такой код - см. приложение. В нём в ProgressBar отображается процесс закачки, а в Label выводится объём уже закачанной части и общий объём файла. Вот эти самые строки (они есть в коде):
ProgressBar.Position:=FileSize(f_loc)*100 div StrToInt(chType);
Status.Caption:=Str2+' of '+Str1+' completed';
Код достаточно надёжный, ни разу меня не подводил.
Желаю удачи!

Приложение:

function TfrmVoices.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; Str1,Str2: 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); Str1:=FloatToStrF(StrToFloat(chType)/(1024*1024),ffNumber,2,2)+' MB'; Str2:=FloatToStrF(FileSize(f_loc)/(1024*1024),ffNumber,2,2)+' MB'; ProgressBar.Position:=FileSize(f_loc)*100 div StrToInt(chType) ; Status.Caption:=Str2+' of '+Str1+' completed'; Application.ProcessMessages(); until BufferLen = 0; CloseFile(f_loc); Result:=True; finally InternetCloseHandle(hURL); end finally InternetCloseHandle(hSession); end end;

Оценка за ответ: 5.
Комментарий: Спасибо за столь короткую функцию...

Текст вопроса:

Подскажите самый удобный компонент для работы с USB-портом.
P.S. Кто знает сколько напряжения подаётся через USB-порт? Знаю, что больше 12v (на 4-ой фишке).

Автор вопроса: Полушин Сергей Анатольевич (статус: Посетитель)
Дата и время отправки вопроса: 14.11.2006, 18:37
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: min@y™ (статус: 5-ый класс), 15.11.2006, 08:57]:

C USB я не работал, компонентов этого плана у меня нету. Я воспользовался поиском на torry.net:

http://www.torry.net/vcl/system/otherhardware/dlpiusb.zip
D2XX USB Drivers for Delphi v.1.01.10 FWS 518 Kb 28 Aug 2001
By Future Technology Devices Intl. Ltd. Develop USB ( Universal Serial Bus ) projects quickly and easily using Delphi’s fast-track approach to application development combined with the D2XX "Direct" USB drivers and devices from Future Technology Devices Intl. (FTDI).

FTDI’s D2XX Drivers for Windows provide and easy and convenient way for application developers to design USB applications without having to develop USB drivers or firmware. The drivers interface to FTDI’s FT8U232AM USB UART and FT8U245AM USB FIFO integrated circuit devices using a native Windows WDM driver which communicates with the device via the Windows USB Stack and a DLL which interfaces the Application Software (written in VC++, C++ Builder, Delphi, VB etc ...) to the WDM driver. An INF installation file, Uninstaller program and D2XX Programmers Guide complete the package.

The zip file consists of the D2XX USB drivers and DLL version 1.00.06 (binary files only), a ready built Delphi unit (D2XXUnit.PAS) which can be dropped into most Delphi (D2 .. D5)applications and a demo application written using Delphi 5.

Fully functional
Source: Included
Exe-demo included
Download: D2 D3 D4 D5


Есть и другие, но они просят денег. А этот халявный и с сорцами.

З.Ы. А напряжение на USB вроде бы 5 вольт (посмотрел в мануале к материнке).

Оценка за ответ: 4.

Текст вопроса:

А где можно взять DelphiX?

Автор вопроса: Виталик (статус: Посетитель)
Дата и время отправки вопроса: 17.11.2006, 22:10
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Николай (статус: 1-ый класс), 17.11.2006, 22:22]:

Здравствуйте, Виталик!
http://softok.org/coding/delphi/4856prog.html
http://softsearch.ru/programs/94-991-delphix-download.shtml

Удачи!

Оценка за ответ: 4.
Комментарий: Вместо адресов можно было поставить ссылки. Как это сделать, смотри по адресу http://expert.delphi.int.ru/help#23