| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Трассировка кода [D7, XP]
WINNT © (2006-10-16 20:57:00)Как его трассировать?
Ламерский вопрос, но я только начал ДЕлфи заниматься
Плохиш (2006-10-17 14:13:00) [1]Виндовскую строку задач уменьши и там он и будет родимый.
_Ламер_ (2006-10-17 13:10:00) [2]
> Kolan © (17.10.06 00:12) [14]
> > Дык не видно ж ничего в окне свойств.> Что есть окно свойств?
> Мы вроде про окно наблюдения Watches. Если это оно, то
> пока туда не добавишь что-то там будет пусто. Приме:var
> A: Integer;Выделил A нажал Ctrl + F5 - радуешься...
Дык нету его нигде. Нажимаю комбинацию, фокус пропадает у делфийских окон и всё. Оно где-то есть и его нигде нет))
> А чтобы оставалось наверху, "приклей" куда-нибудь к редактору
> кода: потаскай мышью, остановсь на более удобном варианте
Я так и сделал. А потом его закрыл. И всё.
Gydvin (2006-10-17 12:55:00) [3]
> Watches
А для чего вообще это окно?
Сергей М. (2006-10-17 12:35:00) [4]
> в чем разница между Blocking и nonBlocking?
Разница есть, и ощутимая. Здесь оно не суть как важно, потому что я подозреваю, что у тебя bmThreadBlocking ...
XP UserR-rr (2006-10-17 12:01:00) [5]
> Сергей М.
А в чем разница между Blocking и nonBlocking?
Сергей М. (2006-10-17 09:00:00) [6]
> XP UserR-rr (16.10.06 21:13) [6]
Чему равно св-во BlockMode компонентов fileser, cmdser ?
Где обработка событий OnReceive, почему вместо обработки этих событий для приема данных используется предназначенное вовсе не для этого св-во-событие OnAccept ?
ЮЮ (2006-10-17 03:06:00) [7]
>
> Выделил A нажал Ctrl + F5 - радуешься...
А чтобы оставалось наверху, "приклей" куда-нибудь к редактору кода: потаскай мышью, остановсь на более удобном варианте
Kolan (2006-10-17 00:12:00) [8]
> Дык не видно ж ничего в окне свойств.
>
Что есть окно свойств? Мы вроде про окно наблюдения Watches. Если это оно, то пока туда не добавишь что-то там будет пусто. Приме:
var
A: Integer;
Выделил A нажал Ctrl + F5 - радуешься...
_Ламер_ (2006-10-17 00:10:00) [9]Дык не видно ж ничего в окне свойств.
Kolan (2006-10-17 00:06:00) [10]
> жму ОК
Не жми.. :) Чем еще помочь..?
_Ламер_ (2006-10-17 00:04:00) [11]Неа, показывается окно свойств, жму ОК, а дальше ничего.
Kolan (2006-10-16 22:43:00) [12]
> Watches)
Ctrl + F5 :)
_Ламер_ (2006-10-16 22:39:00) [13]А как вызвать лист с переменными (Watches)? Я его закрыл однажды и теперь он не показывается никак.
XP UserR-rr (2006-10-16 21:17:00) [14]Да блин, не в ту тему :) Сорри за мусор
Kolan (2006-10-16 21:16:00) [15]
> XP UserR-rr (16.10.06 21:13) [6]
Ты кто?
XP UserR-rr (2006-10-16 21:13:00) [16]Блин, все равно не пойму в чем проблема, вот код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Sockets, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
TcpClient1: TTcpClient;
fileser: TTcpServer;
cmdser: TTcpServer;
pr: TProgressBar;
Label1: TLabel;
Label2: TLabel;
procedure cmdserAccept(Sender: TObject;
ClientSocket: TCustomIpClient);
procedure FormCreate(Sender: TObject);
procedure fileserAccept(Sender: TObject;
ClientSocket: TCustomIpClient);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses unit2;
{$R *.dfm}
var
oname : string;
procedure TForm1.cmdserAccept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
oname := clientsocket.Receiveln;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
cmdser.Active := true;
fileser.Active := true;
end;
procedure TForm1.fileserAccept(Sender: TObject;
ClientSocket: TCustomIpClient);
const
TIMEOUT = 1000;
BUF_SIZE = 1024;
var
buf: array [0..BUF_SIZE - 1] of Byte;
file_size, read_current: Integer;
read_total: Integer;
FW :TFileStream;
percent : integer;
per : string;
bu : real;
begin
FW:=Tfilestream.Create('d:\Documents\' + oname,fmcreate);
if ClientSocket.WaitForData(TIMEOUT) then
begin
if ClientSocket.ReceiveBuf(file_size, SizeOf(Int64)) = SizeOf(Int64)
then
begin
read_total := 0;
form2.visible:= true;
form2.Label2.Caption := oname;
{form2.pr1.Left := 14;
form2.pr1.Left := 16;
form2.pr1.Position := 0; }
with FW do
try
while (read_total <> file_size) and ClientSocket.WaitForData(TIMEOUT) do
begin
read_current := ClientSocket.ReceiveBuf(buf, BUF_SIZE);
Write(buf, read_current);
Inc(read_total, read_current);
bu := read_total/file_size*100;
bu :=round(bu);
per := floattostr(bu);
percent := strtoint(per);
form2.pr1.Position := percent;
form2.Label3.caption := inttostr(percent) + '%';
end;
{ form2.pr1.Position := 0; }
form2.Label3.Caption := '0%';
finally
form2.visible := false;
fw.Free;
end;
end;
end;
end;
end.
Почему при закрытии формы вылезает AV
Там еще второй юнит есть, но там ничё нету
Kolan (2006-10-16 21:07:00) [17]Точка останова(F5)...
> sco © (16.10.06 21:03) [2]
Первонах :)
WINNT (2006-10-16 21:06:00) [18]2 sco
пасиб, ща буду разбираться :-)
WINNT (2006-10-16 21:05:00) [19]Имеется код, на TCPServer, на accept, ну типа файлы он принимает, в конце передачи файла вылезает Access Violation и при приеме второго файла куда-то исчезает прогрессбар, сказали, что надо трассировать код, но что это и зачем, я не понимаю :-(
sco (2006-10-16 21:03:00) [20]блин не успел... но ладно напишу F7, F8 а также из меню Run, также остановить прогу можно из неё же самой нажав F12 (не в делфи а в твоей проге), правда таблица 16ая вылезет, но зато можна быстро затормозить прогу, работает в D7. Eщё есть Ctrl+F2 ето отрубить нафиг прогу, нажимать в делфи... покопайся в меню run
| |
Страницы: 