Показать сообщение отдельно
Старый 15.12.2013, 02:21   #41
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: Lib_binsock: прием/отправка бинарных данных через сокет

Сообщение от RblSb Посмотреть сообщение
напишите пожалуйста пример как соединится и загрузить файл в программу как ресурс
По задумке должно быть так, но сам не тестировал:

uses binsock;

var
    
res:resource;
    
status:integer;
    
S:string;
    
begin
    status 
:= binsock.open('...');//Open connection
    
res := binsock.get_in_stream;//Get input stream (resource)
    
    //Use standard resource functions
    
if(ResourceAvailable(res)) then
        S 
:= ReadLine(res);
    
    
//Close connection
    
binsock.close;
end
(Offline)
 
Ответить с цитированием