winsock, TransmitFile

From

Dmitry Kalinin (2:5009/5.43)

To

All ()

Date

2001-10-22T20:10:12Z

Area

SU.WINDOWS.NT.PROG

Привет All!

    TransmitFile не работает под Win98, хотя под NT2000/4.0 работает без проблем. Как это исправить? Все это выполняется в потоке (Thread).
    { Открытие файла для отправки }
    f := OpenFile(@filename[1], fi, OF_READ);
    size := GetFileSize(f, nil);
    s1 := SENDFILE + ' ';
    str(size, s2);
    s1 := s1 + s2 + ',';
    str(MAXPACKETSIZE, s2);
    s1 := s1 + s2 + #00;
    send(TSOCKET(s^), @s1[1], length(s1), 0);

    { Маленькая пауза для клиентской стороны }
    sleep(1000);

    TransmitFile(TSOCKET(s^), f, size, MAXPACKETSIZE, nil, nil, 0);
    CloseHandle(f);
    DeleteFile(@filename[1]);

Dmitry
... "На краю обрыва песня неземная, Музыка богов и голоса богинь" (c) Ария.
--- 0f 0f 0e 0e 0e 0e 0c 0c 0a 09 09 06 03 00 00 00 ─┬┴┬─┴──┬─────┴─────
 * Origin: mailto: dim0k@mail.ru (2:5009/5.43)