VPF::Передача буфера типа String в API - Форум программистов

Kergan

Дата 2.9.2005, 16:38 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.8.2005

Репутация: 3
Всего: 5

Код


Function ReadFromStdInput(Optional ByVal NumBytes As Long = -1) As String
    Dim hStdIn As Long
    Dim ret As Long
    Dim buffer As String
    Dim bytesRead As Long
    hStdIn = GetStdHandle(STD_INPUT_HANDLE)
    buffer = Space$(1024)
    Do
        ret = ReadFile(hStdIn, ByVal buffer, Len(buffer), bytesRead, ByVal 0&)
        If ret = 0 Then
            Err.Raise 1001, , "Unable to read from standard input"
        End If
        ReadFromStdInput = ReadFromStdInput & Left$(buffer, bytesRead)
    Loop Until bytesRead < Len(buffer)
        
End Function

Это РАБОЧИЙ код.
Строка ВСЕГДА передается внешним функциям Byval! Че б там не было написано! ЕЕ имя УЖЕ указатель - на 0-й символ. smile

Пример брал с
USING ReadFile

Это сообщение отредактировал(а) Kergan - 2.9.2005, 16:41

--------------------

Была у меня дурацкая подпись...Я ее убрал, а новую еще не придумал. :(

Mephisto

Дата 6.9.2005, 09:56 (ссылка)

(нет голосов)

Загрузка ...

Волкъ

Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

Репутация: 2
Всего: 34

Цитата(Akina @ 2.9.2005, 08:29)

А пережевывать байтовый массив в строку - долго.

???????
rtlMoveMemory!!!!!
Почему же долго?

Akina

Дата 6.9.2005, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(Mephisto @ 6.9.2005, 10:56)

rtlMoveMemory!!!!!
Почему же долго?

Да по той же самой причине - ну избавился я от передачи строки в ReadFile... а в rtlMoveMemory опять-таки надо передавать строковый буфер.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Kergan

Дата 9.9.2005, 16:14 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.8.2005

Репутация: 3
Всего: 5

Пардон, Я че-то не секу, а чем вам не нравится использование функции readfile ВООООН в том примере повыше??? Там ведь буффер нормально передается, строкой???

--------------------

Была у меня дурацкая подпись...Я ее убрал, а новую еще не придумал. :(

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »