vb6에서 delphi로 WM_COPYDATA가있는 SendMessage가 깨졌습니다.

Question

vb6 앱에서 WM_COPYDATA를 사용하여 데이터를 델파이 응용 프로그램으로 보냅니다. 내 로컬 시스템은 영어로, 나는 데이터를 올바르게 수신하지만, 네덜란드 시스템을 사용하는 다른 시스템에서는 수신 텍스트가 왜곡됩니다.

수신 앱이 델파이이다, 코드가

procedure TReceiverMainForm.WMCopyData(var Msg: TWMCopyData); 
var 
    copyDataType: TCopyDataType; 
begin 
    copyDataType := TCopyDataType(Msg.CopyDataStruct.dwData); 

    //Handle of the Sender 
    mmoResult.Lines.Add(Format('WM_CopyData from: %d', [msg.From])); 

    case copyDataType of 
    cdtString: HandleCopyDataString(Msg.CopyDataStruct); 
    end; 

    //Send something back 
    msg.Result := mmoResult.Lines.Count; 
end; 

procedure TReceiverMainForm.HandleCopyDataString(
    copyDataStruct: PCopyDataStruct); 
var 
    s: string; 
begin 
    s := PChar(copyDataStruct.lpData); 
    mmoResult.Lines.Add(s); 
end; 

데이터를 보내는 VB6 코드 여기

편집입니다, 데이터를 전송하고 문자열

Dim buf() As Byte 
ReDim buf(1 To LenB(Message)) 
Call CopyMemory(buf(1), ByVal Message, Len(Message)) 
cds.dwData = 0 
cds.cbData = Len(Message) + 1 
cds.lpData = VarPtr(buf(1)) 
' Send the string. 
Dim i As Long 
i = SendMessage(lHwnd, WM_COPYDATA, MainForm.hwnd, cds) 

입니다

아무도 내가 뭘 잘못하고 있다고 말할 수 있습니까?

Answer 1

VB 문자열은 COM BSTR 문자열 유형을 기반으로하며, 문자열 유형은 Delphi의 WideString 문자열 유형과 동일합니다. BSTR은 UTF-16으로 인코딩 된 유니 코드 문자열입니다. LenB()은 로컬 시스템의 현재 로켈로 변환 할 때 VB 문자열이 차지하는 바이트 수를 반환합니다. 당신은 그것을 고려하지 않습니다. 문자열 바이트를 버퍼에 올바르게 복사하지 않고 cds.cbData 필드를 올바른 값으로 설정하지 않습니다. Len()은 문자열에서 UTF-16으로 인코딩 된 문자의 수를 반환하지만 LenB()은 대신 바이트 수를 반환합니다. 영어 문자열 인 경우 Len() 및 LenB()은 동일한 값을 반환하지만 foriegn 언어는 보장되지 않습니다.

원본 VB Unicode 인코딩 된 데이터를있는 그대로 보내고 현재 수행중인 것처럼 Ansi 대신 들어오는 데이터를 Ansi로 처리하도록 Delphi 코드를 변경하는 것이 좋습니다 (PChar은 Delphi 7의 Ansi이지만 in Unicode in Delphi 2009 이상).

또한 cds.dwData 필드에 고유 한 값을 지정해야합니다. WM_COPYDATA은 내부 데이터의 일부에 VCL에서 사용되므로 WM_COPYDATA 메시지와 VCL의 메시지를 구별해야합니다.

대신을 시도해보십시오

cds.dwData = RegisterWindowMessage("MyWMCopyData") 
If cds.dwData <> 0 Then 
    cds.cbData = Len(Message) * 2 ' characters are 2-bytes each 
    cds.lpData = StrPtr(Message) ' access the string's character buffer directly 
    ' Send the string. 
    Dim i As Long 
    i = SendMessage(lHwnd, WM_COPYDATA, MainForm.hwnd, cds) 
End If 

합니다.

var 
    uMyWMCopyDataMsg: UINT = 0; 

procedure TReceiverMainForm.WMCopyData(var Msg: TWMCopyData); 
var 
    s: WideString; // you can use UnicodeString in D2009+ 
begin 
    if (uMyWMCopyDataMsg = 0) or (Msg.CopyDataStruct.dwData <> uMyWMCopyDataMsg) then 
    begin 
    inherited; 
    Exit; 
    end; 

    mmoResult.Lines.Add(Format('WM_CopyData from: %d', [msg.From])); 

    SetString(s, PWideChar(Msg.CopyDataStruct.lpData), Msg.CopyDataStruct.cbData div SizeOf(WideChar)); 
    mmoResult.Lines.Add(s); 

    msg.Result := mmoResult.Lines.Count; 
end; 

initialization 
    uMyWMCopyDataMsg := RegisterWindowMessage('MyWMCopyData');