我是用Delphi 20101版 建構一個DataSnap sever及Client的程式
連結的資料庫是mysql 5.3。
在DB有一個 bs_paperinfo的table
Sever端的SeverMethods單元，放有下列元件
1.SqlConnection
2.SqlDataSet : CommandText :select * from bs_paperinfo
CommandType : ctQuery
DbxCommandType:Dbx.SQL
3.DataSetProvider:
Client端的DataModule單元，放有下列元件
1.SqlConnection : driver: Datasnap
2.SqlDataSet : CommandText :select * from bs_cell
CommandType : ctQuery
DbxCommandType:Dbx.SQL
3.DSProviderConnection:
4.ClientDataSet : CommandText := select * from bs_paperinfo;
在client端執行下段程式時會報錯

[code delphi]
with DMCHECK.cds_paperinfo do
begin
active := True;
first;
while not eof do
begin
if FieldByName('紙種名稱').Value = checkPaperName then
begin
if FieldByName('分割格名稱').Value = checkCellName then
begin
MaxHeight := FieldByName('短邊尺寸').Value;
MinHeight := MaxHeight * 0.5 ;
MaxWidth := FieldByName('長邊尺寸').Value;
MinWidth := MaxWidth * 0.5 ;
if ((Pw <= MaxWidth) and (Pw >= MinWidth)) and ((Ph <= MaxHeight) and (Ph >= MinHeight)) then
begin
sizepass := True;
Last;
end;
end;
end;
end;
[/code]
我想這是很簡單的一個loop，而且table bs_paperinfo中只有72筆資料，但迴圈才沒執行幾圈就報錯
First chance exception at $75DCB9BC. Exception class EAccessViolation with message 'Access violation at address 006D2F83 in module 'pdfcheck.exe'. Read of address 006D2F83'. Process pdfcheck.exe (3568)
對於這樣的訊息我完全沒頭緒，請問各位版大們可以指引迷津嗎？
第一次寫datasnap程式，對於datasnap抱以厚望的說，可是真的有些難度唉!
另外請教，如果在server端寫的查詢founction 結果是出現多筆的資料時，回傳的資料型態可以是dataset嗎？
如果是可以，那在client要如何承接呢？是動態生成一個DSProviderConnetion及ClientDataset來承接嗎？
這方面的資料用google到處找都找不到....找到的都是簡單的範例，實戰級的資料真少。

我的 Client  端：
DSProviderConnection1:
SQLConnection = SQLConnection1
ServerClassName = TDSServerModule1

ClientDataSet:
RemoteServer = DSProviderConnection1
ProviderName = DataSetProvider1


還是用CB寫出來的，使用上沒有問題，用Delphi就更不會有問題了

另外，是不是少了「MoveBy(1)」呢？

能不能把你的專案po上來看看呢？

編輯記錄