看到網路上有在寫程式讀取下單軟體的即時資訊
想說來試一試結果資料是讀到了不過卻附上亂碼
畫面如下：




[code delphi]
procedure TForm1.FormCreate(Sender: TObject);
begin
ddeClientItem1.Lines.Clear;
ddeClientItem2.Lines.Clear;
ddeClientItem3.Lines.Clear;
ddeClientItem4.Lines.Clear;
ddeClientConv1.ConnectMode := ddeAutomatic;
ddeClientConv1.FormatChars := True;
ddeClientConv1.FormatChars := False;
ddeClientConv1.SetLink('YES','DQ');
DdeClientItemTime.DdeConv := ddeClientConv1;
DdeClientItemTime.DdeItem := 'Time';

ddeClientItem1.DdeConv := ddeClientConv1;
ddeClientItem1.DdeItem := '$TWT.Name';
ddeClientItem2.DdeConv := ddeClientConv1;
ddeClientItem2.DdeItem := '$TWT.Price';
ddeClientItem3.DdeConv := ddeClientConv1;
ddeClientItem3.DdeItem := 'TXF1.Name';
ddeClientItem4.DdeConv := ddeClientConv1;
ddeClientItem4.DdeItem := 'TXF1.Price';
end;
procedure TForm1.DdeClientItemTimeChange(Sender: TObject);
var i: integer;
begin
Label1.Caption := DDEClientItemTime.Text;
Label3.Caption := IntToStr(Length(DDEClientItemTime.Text));
Label8.Caption := '';
for i := 1 to Length(DDEClientItem2.Text) do
begin
Label8.Caption := Label8.Caption ' ' IntToStr(Ord(DDEClientItemTime.Text[i]));
end;
Label8.Caption := Trim(Label8.Caption)
end;
procedure TForm1.ddeClientItem1Change(Sender: TObject);
begin
Edit1.Text := DDEClientItem1.Text;
Label4.Caption := IntToStr(Length(DDEClientItem1.Text));
end;
procedure TForm1.ddeClientItem2Change(Sender: TObject);
var i: integer;
begin
Edit2.Text := ddeClientItem2.Text;
Label5.Caption := IntToStr(Length(DDEClientItem2.Text));
Edit5.Clear;
for i := 1 to Length(DDEClientItem2.Text) do
begin
Edit5.Text := Edit5.Text ' ' IntToStr(Ord(DDEClientItem2.Text[i]));
end;
Edit5.Text := Trim(Edit5.Text);
end;
procedure TForm1.ddeClientItem3Change(Sender: TObject);
begin
Edit3.Text := ddeClientItem3.Text;
Label6.Caption := IntToStr(Length(DDEClientItem3.Text));
end;
procedure TForm1.ddeClientItem4Change(Sender: TObject);
var i: integer;
begin
Edit4.Text := ddeClientItem4.Text;
Label7.Caption := IntToStr(Length(DDEClientItem4.Text));
Edit6.Clear;
for i := 1 to Length(DDEClientItem4.Text) do
begin
Edit6.Text := Edit6.Text ' ' IntToStr(Ord(DDEClientItem4.Text[i]));
end;
end;
[/code]

不知道站友是否有處理的經驗，能開釋一下嗎？

------
http://blog.bestlong.idv.tw/
http://www.bestlong.idv.tw/
http://delphi-ktop.bestlong.idv.tw/

附加檔案：49c33283ee23e_delphi_dde.jpg

編輯記錄

我用BCB6來實作，也是出現相同的內容，哈！
會不會又是UNICODE的問題呢？

不過那些怪怪字好像也是用不到，直接濾掉應該就可以了吧？

===================引 用 bestlong 文 章===================
...43...

照我的經驗與看法:

結構體(delphi叫record?)裡的一些char[ ]之類的資料在轉入ansistring時，沒用使用AnsiString(char*,n) 這個方法建構，而使用一般的AnsiString(char*), 就會導致有"垃圾"。 應該不是送來的資料本身有怪字，而是指到自己程式裡的額外的記憶體。所以才有會 tedit? 什麼之類的…還有規則的 垂垂… 應該都是指到不該指的位置造成。

是在server端的處理時可能就轉不正確造成。

------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan

應該不是 Unicode 的問題, 因為畫面顯示一半是正常, 一半是亂碼
如果傳送過來的資料是 Unicode, 而你沒有用 UTF8Decode 函數來處理 (我猜您是用D7或是更早的版本來寫的)
那麼整行都會是亂碼, 不會一半對, 一半不對
所以猜測是 Server 端送來的訊息有問題, 直接切掉就好

------
Mephise Chen
前興德工程師

過了快四年才找到解……

底下是我使用 Delphi 2009 測出來不會有亂碼的程式片斷：

var myAnsiPChar: PAnsiChar;
begin
myAnsiPChar := DdeClientConv1.RequestData($TWT.Name);
Caption := string(myAnsiPChar);


或許 DdeClientItem 有什麼不為人知的 Bug 吧。

希望這回覆不會太晚...Orz

編輯記錄

以下是放在我部落格裡的備份
http://aftcast.pixnet.net/blog/post/32351223


後記:
yeswin這程式的人員，肯定就是我說的沒注意到長度要包含null，才會造成這樣的情形。假使他有注意，那應該也不會出現亂碼附在後面了!

===================引 用 GrandRURU 文 章===================

或許 DdeClientItem 有什麼不為人知的 Bug 吧。

------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan

編輯記錄

===================引 用 aftcast 文 章===================

蕭大俠是正解無誤！實在太強大！
===

因為 TDdeCliItem 放在 implementation

建議還是直接 Copy Add Edit DdeMan.pas 到有使用 Dde 元件的專案裡

這樣專案會優先使用專案裡同名的檔案


等哪一天 EMBT 心情好，在某一版 XXXE 修了這個 Bug 後，再刪掉吧


提外話：
目前 富邦e01 也會有這樣的問題，可能是券商的工程師跳槽過去的吧 XD

話說， Debug 的時間快和開發時間比多了，換了新版情況也好不到哪裡去，
所以，按上述的推理，我很認真的懷疑現在在 EMBT 的 RD，或許是 M$ 派過去的 SPY....

===================引 用 aftcast 文 章===================

以下是放在我部落格裡的備份
http://aftcast.pixnet.net/blog/post/32351223

...43...

編輯記錄