Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.06.2011, 21:29   #1
Pcrepair
Форумчанин
 
Регистрация: 04.01.2011
Сообщений: 260
По умолчанию ИНДИ10, вопросы по синтаксису клиента

Добрый день
Есть код процедуры подключения к серверу, отправки запроса серверу, получения файла, записи файла на диск, отображения файла. Все работает. но не совсем понятно как
Если кто в курсе, пожалуйста дайте комментарии
Код:
procedure TForm1.B_GetScrClick(Sender: TObject);//ПРОЦ по имени B_GetScrClick (запуск с Форма1.Кнопка - соответсвующая, событию с этим именем)
var	//объявление локальной ПЕРЕМ
 s:TFileStream;	//ПЕРЕМ типа ФайлСтрим (поток для работы с файлами)
 Bitmap: TBitmap; //ПЕРЕМ типа Битмап (графический файл типа BMP)
begin
 connect_to_server; //вызов ПРОЦ подключения к серверу - это отдельно и тоже работает
 IdTCPClient1.IOHandler.WriteLn('get_screen '); //Клиент дает команду серверу GET_SCREEN - запрос на получение графического файла
 with IdTCPClient1 do
 begin
   if FileExists('C:\s.bmp') then DeleteFile('C:\s.bmp'); //Если на диске существует файл, тогда удалить этот файл
   s := TFileStream.Create('C:\s.bmp',fmCreate); //присвоить ПЕРЕМ значение = создать поток, в потоке создать файл на диске - создание потока и файла на диске
   while connected do //пока подключено к серверу сделать следующее
        IdTCPClient1.IOHandler.ReadStream(s,-1,true);	прочитать поток из клиента -ВОТ ТУТ НЕЯСНО
        FreeAndNil(s); //обнулить ПЕРЕМ
        Disconnect; // отключится
        Image1.Picture:=nil; //обнулить картинку
        Bitmap := TBitmap.Create; //создать и присвоить ПЕРЕМ это значение
          try	
            Bitmap.LoadFromFile('C:\s.bmp'); //в ПЕРЕМ загрузить дата из файла на диске
            Image1.Picture.Bitmap.Assign(Bitmap); //отобразить дата в Имедж1
          finally	
             Bitmap.Free; // обнулить ПЕРЕМ
          end;	
 end;
Неясно тут - (s,-1,true), что означают эти аргументы и как они влияют на результат работы
s - это имя ПЕРЕМ?
-1 или 0 - ????
true или false -???

Что то нигде не могу найти, нужно для изучения ДЕЛФИ, конкретно надо заменить TFileStream на TMemoryStream, чтобы избавится от постоянного дерганья изображения при перезаписи файлов на ЖД
Pcrepair вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
jquery по синтаксису 92avenu JavaScript, Ajax 3 01.04.2011 17:00
с# и с++ по синтаксису различаются? quarty Помощь студентам 4 25.01.2011 10:40
Вопрос по синтаксису Неофит Общие вопросы C/C++ 2 17.01.2011 20:04
Вопрос по Javascript синтаксису... DrStrangeLove JavaScript, Ajax 3 01.01.2011 20:16
Вопрос по синтаксису Brucebelg Microsoft Office Excel 3 28.05.2010 18:07