Вопрос № 101152: Доброго вмремени суток!!
Имеется АДСЛ-соединение с инетом через сетевой модем (т.е. компьютер подключен к инету через локалку).
Вопрос: как получить количество входящих/исходящий байт с инета, или хотя бы переданных по локальной сети??
Бл...Вопрос № 101160: Здрасте, можно спросить, накидал на форму edit'ов и хотелось бы спросить, как прописать в button1 чтоб инфа введённая в edit сохранялась в текстовый файл, и отображалась бы в мемо. Я просто начинающий.......после армии трудно чего вспомнить.....посл...Вопрос № 101217: Здравствуйте Уважаемые!У меня на форме при загрузке программы находится TStringGrid со своими начальными установками.В процессе работы
он притерпевает различные изменения :добавляются строки, столбцы,у столбцов появляется авторазмер ну и т.д, в конеч...
Вопрос № 101.152
Доброго вмремени суток!!
Имеется АДСЛ-соединение с инетом через сетевой модем (т.е. компьютер подключен к инету через локалку).
Вопрос: как получить количество входящих/исходящий байт с инета, или хотя бы переданных по локальной сети??
Благодарен.
Отвечает: Тоха
Здравствуйте, Ренат Байрамгулов! !!!
Поставте сервер и к нему подключите модем. На сервере установить прокси.
Для экзаменаторов: ответ неверный, поскольку не соответствует тематике рассылки.
Отредактировано Denisss --------- Я не волшебник я только учусь!
Ответ отправил: Тоха (статус: 5-ый класс)
Ответ отправлен: 07.09.2007, 08:44 Оценка за ответ: 3 Комментарий оценки: Дело в том, что нет возможности ставить сервер. Но можно написать приложение на Delphi (собственно поэтому я к Вам обратлся) и в нем считать байты обратившись в WinAPI.
Отвечает: sir henry
Здравствуйте, Ренат Байрамгулов!
Посмотрите вот эту программку:
http://macrosscd.narod.ru/MyPro.htm
возможно она Вам подойдет.
Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 07.09.2007, 11:56
Отвечает: Alexey Bednov
Здравствуйте, Ренат Байрамгулов!
Копайте в сторону WinPCap - это как раз то, что Вам нужно.
Ответ отправил: Alexey Bednov (статус: 1-ый класс)
Ответ отправлен: 07.09.2007, 13:14
Отвечает: Coupler
Здравствуйте, Ренат Байрамгулов!
Вот еще одна программа с исходниками, у меня ADSL-маршрутизатор, проверил, работает.
Ответ отправил: Coupler (статус: Практикант)
Ответ отправлен: 10.09.2007, 17:55
Вопрос № 101.160
Здрасте, можно спросить, накидал на форму edit'ов и хотелось бы спросить, как прописать в button1 чтоб инфа введённая в edit сохранялась в текстовый файл, и отображалась бы в мемо. Я просто начинающий.......после армии трудно чего вспомнить.....после 2-х то лет
Отправлен: 07.09.2007, 09:14
Вопрос задал: Sefiros (статус: Посетитель)
Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Решетник Д
Здравствуйте, Sefiros!
..вот процедура обработки нажатия кнопки.
procedure TForm1.Button1Click(Sender: TObject);
const NAME = 'c:1.txt';
var f: textfile;
begin
///сохраняем в файл
assignfile(f, NAME);
rewrite(f);
writeln(f, edit1.text);
closefile(f);
///загружаем в мемо
memo1.Lines.LoadFromFile(NAME);
///при чем, если нужно просто добавить запись к существующим, лучше сделать так
memo1.lines.add(edit1.text);
end;
--------- Жизнь коротка, чтобы писать на ассемблере
Ответ отправил: Решетник Д (статус: Студент)
Ответ отправлен: 07.09.2007, 09:32
Отвечает: Omickron
Здравствуй, Sefiros!
Я немного не понял, ты хочешь, чтобы значение поля каждого Edit сохранялось в отдельный файл или чтоб в файл сохранялось то, что находится в Memo?
В первом случае можно использовать файловый поток TFileStream, куда записывать значение поля.
Чтобы добавить строку в Memo, можно использовать свойство Items:TStrings этого компонента:
MyMemo.Items.Add(MyEdit.Text);
Во втором случае после добавления строк в Memo используй метод SaveToFile свойства Items:
MyMemo.Items.SaveToFile(MyFileName);
где MyFileName - строковая переменная с именем файла.
*Считать из файла в Memo можно методом LoadFromFile (MyFileName)*
Ответ отправил: Omickron (статус: 3-ий класс)
Ответ отправлен: 07.09.2007, 09:44
Отвечает: Тоха
Здравствуйте, Sefiros! !!!
Что то вроде того
я рассматрю пример с одним Edit дальше дорабатывайте ели что то пишите конкретное число Edit
Двойной клик по кнопке и процедура появляется дальше между Begin и end пишем
Memo1.Lines.Add(Edit1.Text); // Добавляем строки из Edit в Memo
Memo1.Lines.SaveToFile('C:.txt'); // Сохраняем Memo в файл С:1.txt
или
Надеюсь где писать Var и Begin ты помнишь))
Var
F:TextFile;
begin
AssignFile(F,'C:1.txt'); //Присваиваем переменной F файл 1.txt
Rewrite(F); // Открываем файл для записи
Write(F,Edit.Text);// записываем содеожимое Edit в файл
CloseFile(f); // Закрываем файл
Memo1.Lines.LoadToFromFile('C:1.txt'); // загружаем данные в Memo1 из файла To - это "куда", а From - "откуда"
end;
В правильностинаписания команд не уверен извини но в принципе Делфа сама подсказки после точки выдает. Если что то пиши. Удачи))
Исправил экспертsir henry --------- Я не волшебник я только учусь!
Ответ отправил: Тоха (статус: 5-ый класс)
Ответ отправлен: 07.09.2007, 11:01
Отвечает: Дмитрий С.
Здравствуйте, Sefiros!
Допустим, у Вас N-штук полей Edit. Текст из них находится в свойстве Text. Чтобы ипользовать в своей программе файл, нужно его объявить (желательно в глобальных переменных):
VAR My_File: text; // обычный текстовый нетипизированный файл
По какому-нибудь событию (скажем OnCreate Вашей формы) пишем следующее:
AssignFile(My_File, 'path_to_file.txt');
If FileExist('path_to_file.txt') then Reset(My_File)
else Rewrite(My_File); // проверяем существует ли файл. Если его нет, то создаём.
Дважды кликаем по Вашей button1, и пишем там:
BEGIN
Append(My_File); // перемещаемся в конец файла
Writeln(My_File, Edit1.Text);
Writeln(My_File, Edit2.Text);
Writeln(My_File, Edit3.Text);
............................
Writeln(My_File, EditN.Text); {перебираем все поля. N - последнее поле}
CloseFile(My_File);
Теперь с выводом в MEMO. Советую заносить туда значение прямо из файла. Почему? Во-первых, сразу проверим записан ли файл, во-вторых - так быстрее :) :
Удачи!
--------- Наши программисты самые программистые программисты!..
Ответ отправил: Дмитрий С. (статус: 4-ый класс)
Ответ отправлен: 07.09.2007, 13:15
Отвечает: Shurka
Здравствуйте, Sefiros!
Все просто. Кликаешь два раза на кнопку и пишешь
var f: TextFile;
begin
AssignFile(f, 'C:file.txt');
Rewrite(f);
Write(f, Edit.text);
Memo.Lines.Add(Edit.text);
CloseFile(f);
end;
Ответ отправил: Shurka (статус: 3-ий класс)
Ответ отправлен: 07.09.2007, 16:36
Вопрос № 101.217
Здравствуйте Уважаемые!У меня на форме при загрузке программы находится TStringGrid со своими начальными установками.В процессе работы он притерпевает различные изменения :добавляются строки, столбцы,у столбцов появляется авторазмер ну и т.д, в конечном счёте он заполняется.Что бы начать новую работу мне необходимо очистить таблицу и вернуть ей первоначальные настройки.Существует ли для этого какой нибудь метод или необходимо в ручную писать начальные установки и процедуру очистки?
Отвечает: Shurka
Здравствуйте, Зотов Геннадий Александрович!
Ручками, ручками работать придется. Голова тут не поможет. Не предусмотрено сюда голову совать :)
Ответ отправил: Shurka (статус: 3-ий класс)
Ответ отправлен: 08.09.2007, 08:41 Оценка за ответ: 2 Комментарий оценки: А может лучше головой всё таки подумать?
Отвечает: Карабанов Алексей
Здравствуйте, Зотов Геннадий Александрович!
Категорически не согласен с предыдущим экспертом!
Вашу задачу выполниить можно.
Насколько я понял, основная масса свойств объекта StringGrid задается в процессе выполнения программы, а не в инспекторе объектов.
В таком случае могу посоветовать не просто задавать свойства в программном коде, но и сам объект создавать из кода, вообще не размещая его на форме.
В приложении приведен пример, в котором объект StringGrid со свойствами по умолчанию создается при создании формы, по нажатию кнопки Button1 некоторые его свойства изменяются (число строк и текст первой ячейки).
По нажатию кнопки Button2 этот объект уничтожается и создается вновь со свойствами по умолчанию.
Для создания объекта Создана процедура CreateStringGrid. Объявление этой процедуры нужно поместить в раздел Public методов формы, затем нажать Ctrl+Shift+C и будет создана пустая заготовка этой процедуры, в нее помещается код создания объекта. В этой процедуре задаются создается объект и задаются некоторые его свойства (имя, положение по вертикали и горизонтали) их можно не задавать, тогда объект будет иметь имя по умолчанию и будет расположен в левом верхнем углу формы. В этом случае код создания объекта состоит
из двух строк!
Процедура создания объекта вызывается из других процедур всякий раз, когда Вам нужно создать объект.
В приложении приведен полный тескт модуля Unit1. Откройте новый проект, разместите в нижней части формы две кнопки и замените полностью код модуля Unit1 на тот, что приведен в приложении.
Дополнительные вопросы пишите в мини-форум.
Приложение:
--------- Дорогу осилит идущий!
Ответ отправил: Карабанов Алексей (статус: 10-ый класс)
Ответ отправлен: 08.09.2007, 10:53 Оценка за ответ: 5 Комментарий оценки: Да это то что надо!
