Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];

Вниз

Чтение данных   Найти похожие ветки 

 
DillerXX ©   (2005-11-16 23:57) [0]

У меня возникла проблема: есть функция

Function InternetReadFile(hFile: HFILE; lpBuffer: LPDWORD; dwNumberOfBytesToRead: DWORD;
                             lpdwNumberOfBytesRead: LPDWORD): Boolean; stdcall; external "WinINet.dll";

Если её вызвать, то в переменные lpBuffer и lpdwNumberOfBytesRead возвратят поинтеры на данные. Как мне прочитать получаемый файл, просто я забыл как работать с указателями :(


 
Джо ©   (2005-11-17 00:18) [1]

Например:

const
 READ_BUF_SIZE = 4096;
var
 FBuffer: array [0..READ_BUF_SIZE] of Char;
 BytesRead: Cardinal;
...
   while InternetReadFile(FHandle,@FBuffer,Length(FBuffer),BytesRead) and (BytesRead <> 0) do
   begin
     // Очередная порция данных находится в массиве FBuffer
     // размер этой порции хранится в переменной BytesRead
   end;

Надеюсь, без опечаток -- набирал прям здесь.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.031 c
2-1132226754
rsy
2005-11-17 14:25
2005.12.04
Оцените мой сайт


2-1131873995
Бобров Илья
2005-11-13 12:26
2005.12.04
DBGrid (DBGridEh)


14-1132135654
JTAG
2005-11-16 13:07
2005.12.04
Коллеги подскажите как в delphi 7 поставить номера строк


2-1132349761
Юра Войтюк
2005-11-19 00:36
2005.12.04
Как проверить содержание ячейки...


10-1108398675
kostik78ua
2005-02-14 19:31
2005.12.04
ClientDataSet.Open





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский