問個 debug 的問題

shizhihong

我想問一下，在 run program 的時候，
整個程序就只出現一條橙色線，然後就不能動了，
也沒有顯示什麼 error messages,這是什麼原因呢 ？
先說聲謝謝；

猫工

你能截个图上来看看吗？

shizhihong

2. Main Unit source code ...
3. ------------------------------
5. unit MainUnit;
7. {$mode objfpc}{$H+}
9. interface
11. uses
12.   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
13.   Process, StdCtrls;
14. const
15.   READ_BYTES = 2048;
17. type
19.   { TMyThread }
21.   TMyThread = class(TThread)
22.   private
23.     //fStatusText: string;
24.     procedure ShowStatus;
25.   protected
26.     procedure Execute; override;
27.   public
28.     constructor Create(CreateSuspended: boolean);
29.   end;
31.   { TForm1 }
33.   TForm1 = class(TForm)
34.     Edit1   : TEdit;
35.     Memo1   : TMemo;
36.     Process1: TProcess;
38.     procedure FormCreate(Sender: TObject);
39.   private
40.   public
41.   end;
43. var
44.   Form1: TForm1;
46.   M : TMemoryStream;
47.   n : LongInt;
48.   BytesRead : LongInt;
50. implementation
52. { TForm1 }
54. procedure TForm1.FormCreate(Sender: TObject);
55. var
56.   MyThread : TMyThread;
57.     S       : TStringList;
58. begin
59.   M := TMemoryStream.Create;
60.   S := TStringList.Create;
61.   BytesRead := 0;
63.   MyThread := TMyThread.Create(True);
64.   // With the True parameter it doesn't start automatically
65.   //MyThread := TMyThread.Create(False);
66.   if Assigned(MyThread.FatalException) then
67.     raise MyThread.FatalException;
68.   // Here the code initialises anything required before the threads starts executing
69.   MyThread.Resume;
70.   //Sleep(20000);
72.   while Process1.Running do
73.   begin
74.     M.SetSize(BytesRead+READ_BYTES);
75.     n := Process1.Output.Read((M.Memory+BytesRead)^, READ_BYTES);
76.     if n > 0 then
77.      begin
78.           Inc(BytesRead, n);
79.      end
80.     else
81.      begin
82.           Sleep(100);
83.      end;
84.   end; {
85.      repeat
86.       M.SetSize(BytesRead + READ_BYTES);
87.       n := Process1.Output.Read((M.Memory + BytesRead)^, READ_BYTES);
88.       if n > 0 then
89.        begin
90.         Inc(BytesRead, n);
91.        end;
92.      until n <= 0; }
93.      if BytesRead > 0 then WriteLn;
94.      M.SetSize(BytesRead);
97.      S.LoadFromStream(M);
98.      S.Free;
99.      M.Free;
100.   end;
101.   //Edit1.Text:='AAAAA';
102.   //Sleep(20000);
103. end;
105. { TMyThread }
107. procedure TMyThread.ShowStatus;
108. // this method is only called by Synchronize(@ShowStatus) and therefore
109. // executed by the main thread
110. // The main thread can access GUI elements, for example Form1.Caption.
111. begin
112.   //Form1.Caption := fStatusText;
113.   Form1.Process1 := TProcess.Create(nil);
114.   {$IFDEF WIN32}
115.   Form1.Process1.CommandLine :=  'D:\\MyDOCU\\Work\\xxxxx';
116.   {$ENDIF}
117.   Form1.Process1.Options := Form1.Process1.Options + [poWaitOnExit];
118.   Form1.Process1.Execute;
119.   Form1.Process1.Free;
120. end;
122. procedure TMyThread.Execute;
123. //var
124.   //newStatus : string;
125. begin
126.   //fStatusText := 'TMyThread Starting...';
127.   Synchronize(@Showstatus);
128.   //fStatusText := 'TMyThread Running...';
129.   //Process1 := TProcess.Create(nil);
130.   //Process1.CommandLine :=  'D:\\MyDOCU\\Work\\xxxxx';
131.   //Process1.Options := Process1.Options + [poWaitOnExit, poUsePipes];
132.   //Process1.Execute;
133.   //Process1.Free;
134.   {
135.   while (not Terminated) and (true any condition required) do begin
137.     //here goes the code of the main thread loop
138.     newStatus:='TMyThread Time: '+FormatDateTime('YYYY-MM-DD HH:NN:SS',Now);
139.      
140.     if NewStatus <> fStatusText then begin
141.       fStatusText := newStatus;
142.       Synchronize(@Showstatus);
143.     end;
144.   end;
145.   }
146.   //Synchronize(@Showstatus);
147. end;
149. constructor TMyThread.Create(CreateSuspended: boolean);
150. begin
151.   FreeOnTerminate := True;
152.   inherited Create(CreateSuspended);
153. end;
155. initialization
156.   {$I mainunit.lrs}
158. end.
160. -------------------------------------------

复制代码

shizhihong

如圖，run program 的結果，
就是這樣一條橙色線而已。。。。。

沒有什麼 error messages ...

猫工

从lazarus的Options里可以看得到（如上图），这个颜色是意思是：Error line

我是这么写的，可以通过：

游客，如果您要查看本帖隐藏内容请回复

zeus-chu

问题解决了么？

顺便提一句（好像跟这个问题无关），有一个常见的问题是，调试器一运行就碰到 sigsegv。
我看到一个解决方法：如果安装了 COMODO Internet Security 的话，先卸载，然后重新安装，并且安装的时候选择不安装 Defense+。

shizhihong

嗯，DataList 的 問題解決了，
只是有點不明白的是，

我這樣宣告時 S: TSTringList，
"不"能 work.

But 只是換了一個名稱，DataList: TStringList，
卻可以 work 了，
(debug 可以過)

有這個不解的地方；

zeus-chu

能把原來有問題的那個 project 照原樣打包傳上來嗎？
我也想知道為什么會那樣。

shizhihong

only source codes ...

zeus-chu

果然是这样。。。

S 後面那个不是空格。

  

建议你写代码的时候别用 Unicode，哪怕是 UTF8。