Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=5883&view=findpost&p=66545 Mon, 10 Mar 2003 21:20:11 +0000 Поглядите... https://forum.sources.ru/index.php?showtopic=5883&view=findpost&p=66545 x2er0 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5883&view=findpost&p=66543 Mon, 10 Mar 2003 19:59:18 +0000 Поглядите... https://forum.sources.ru/index.php?showtopic=5883&view=findpost&p=66543 Цитата
Само строение проги на АПИ или VCL ?

1
]]> x2er0 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5883&view=findpost&p=66541 Mon, 10 Mar 2003 19:26:49 +0000 Поглядите... https://forum.sources.ru/index.php?showtopic=5883&view=findpost&p=66541 Song Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5883&view=findpost&p=66539 Mon, 10 Mar 2003 17:59:21 +0000 Поглядите... https://forum.sources.ru/index.php?showtopic=5883&view=findpost&p=66539 Помогите...
    <br>  hFile:=CreateFile(name, GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);<br>  len:=GetFileSize(hFile, nil);<br>  c:=len;<br>  while c>0 do<br>   begin<br><br>    ReadFile(hFile,buf,10,Bytes,nil);<br><br>    if(Bytes>0)then<br>     begin<br><br>      send(sock, buf, Bytes, 0);<br>      ZeroMemory(@buf, sizeof(buf));<br>      Sleep(40);<br>      dec(c, Bytes);<br><br>     end;<br>   end;<br>  CloseHandle(hFile);<br>
]]> x2er0 Delphi: Общие вопросы