Q&A
- WideString을 어떻게 하면 좋습니까?
델파이로 작성된 COM에 Record를 보내려구 하였습니다.
그냥 Record를 보낼 수 없어서
WideString으로 변환해서 보내려구 합니다.
그런데 레코드를 그냥 string으로 바꾸면 아무 이상없는데
바꿔지 string을 WideString으로 바꾸면
이게 이상하게 자꾸 한글자씩 빼먹구 난리입니다.
이걸 어떻게 고치면 좋겠습니까? 정말 죽겠습니다.
제발 도와주세요.
type
TSubRec = record
SubOn : Boolean;
Svr : string[32];
DB : string[32];
View : string[32];
end;
TRecord = record
cbSize : Integer; // Size of this structure
Version : Integer;
MainOn : Boolean;
Pass : string[32];
MainView : string[32];
CommonDB : array[0..15] of TSubRec;
ChkTime : Integer;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
ARecord : TREcord;
WRecord : widestring;
SRecord : string;
begin
ARecord.cbSize := SizeOf(TRecord);
ARecord.Version := 50;
ARecord.MainOn := True;
ARecord.Pass := 'abcd';
SetString(SRecord, PChar(@ARecord), SizeOf(TRecord));
WRecord := WideString(SRecord); // 이 두줄에서 자꾸 글자를 빼먹습니다.
s := string(WRecord); //
CopyMemory(@ARecord,PChar(s),SizeOf(TRecord));
Edit1.Text := ARecord.Pass; end;
그냥 Record를 보낼 수 없어서
WideString으로 변환해서 보내려구 합니다.
그런데 레코드를 그냥 string으로 바꾸면 아무 이상없는데
바꿔지 string을 WideString으로 바꾸면
이게 이상하게 자꾸 한글자씩 빼먹구 난리입니다.
이걸 어떻게 고치면 좋겠습니까? 정말 죽겠습니다.
제발 도와주세요.
type
TSubRec = record
SubOn : Boolean;
Svr : string[32];
DB : string[32];
View : string[32];
end;
TRecord = record
cbSize : Integer; // Size of this structure
Version : Integer;
MainOn : Boolean;
Pass : string[32];
MainView : string[32];
CommonDB : array[0..15] of TSubRec;
ChkTime : Integer;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
ARecord : TREcord;
WRecord : widestring;
SRecord : string;
begin
ARecord.cbSize := SizeOf(TRecord);
ARecord.Version := 50;
ARecord.MainOn := True;
ARecord.Pass := 'abcd';
SetString(SRecord, PChar(@ARecord), SizeOf(TRecord));
WRecord := WideString(SRecord); // 이 두줄에서 자꾸 글자를 빼먹습니다.
s := string(WRecord); //
CopyMemory(@ARecord,PChar(s),SizeOf(TRecord));
Edit1.Text := ARecord.Pass; end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 우리들
- 2001.11.10 08:07
- 0 COMMENTS
- /
- 0 LIKES
-
-
최용일•2001.11.10 10:53잘깔리는데요... 얼마전에 2000에서 깔아보니까 잘 되더군요... 지금은 델5쓰지만... 오세철 wrote: > ...
-
-
- 긴급.....~
- •
- 2001.11.10 07:17
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.11.10 10:56안녕하세요. 최용일입니다. 제가 알기로는 델파이5는 32비트윈도우전용컴파일러입니다. 델파이1같은 16...
-
긴급.....~•2001.11.10 18:36최용일 wrote: > 안녕하세요. 최용일입니다. > > 제가 알기로는 델파이5는 32비트윈도우전용컴파일러입...
-
- 맘이아파요
- •
- 2001.11.10 06:31
- 1 COMMENTS
- /
- 0 LIKES
델파이로 작성된 COM에 Record를 보내려구 하였습니다. 그냥 Record를 보낼 수 없어서 WideString으로 변환해서 보내려구 합니다. 그런데 레코드를 그냥 string으로 바꾸면 아무 이상없는데 바꿔지 string을 WideString으로 바꾸면 이게 ...-
화랑•2001.11.12 11:44그냥 편하게.. Varriant Array로 데이터 전송하시져~~ 그것이 편할것같은데요.. ^^ 맘이아파요 wrote...
-
- 익명
- •
- 2001.11.10 06:31
- 1 COMMENTS
- /
- 0 LIKES
-
이명호•2001.11.14 04:35어느정도의 프로젝트인지는 모르겠지만요 NT를 이용하신다면 NT의 터미널서버인가요 서비스인가요? ...
-
- 송남수
- 2001.11.10 05:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보초보
- •
- 2001.11.10 04:29
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.11.10 11:04안녕하세요. 최용일입니다. OnDrawCell(TStringGrid), OnDrawColumnCell(TDBGrid)에서 특정한 색으로 그...
-
- 정규성
- 2001.11.10 04:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 설창원
- •
- 2001.11.10 04:03
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.11.10 11:21안녕하세요. 최용일입니다. 윈도우에 있는 대부분의 디바이스들은 파일로 접근할수 있습니다.... pro...
-
- 박치곤
- •
- 2001.11.10 03:45
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.11.10 11:24(10, 10)에 빨간점 찍기... Image1.Canvas.Pixels[10, 10] := clRed; 공부하세요... end; 박치곤 w...
-
- 정말궁금
- •
- 2001.11.10 03:51
- 2 COMMENTS
- /
- 0 LIKES
-
Bulduki•2001.11.12 23:06정말궁금 wrote: > 혹시 델파이로 BarCode Print 해보신분요~~~~~~ > > BarCode는 다 아시죠? 물건같은...
-
EEL•2001.11.10 04:44저는 예전에 M8400 바코드 프린터를 사용해봤어요... 그때는 이미지를 그려서 출력한것 같기도하고... 오...
-
- 씨나락
- 2001.11.10 03:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 강병국
- •
- 2001.11.10 02:54
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.11.10 06:23강병국 wrote: > ListView에서 OwnerDraw를 true로 설정을 하고 OnDrawItem에서 ListView에다가 > 그리는...
-
- 이광복
- •
- 2001.11.10 02:49
- 2 COMMENTS
- /
- 0 LIKES
-
짚세기•2001.11.10 23:35이광복 wrote: > 안녕하세요. 델파이를 공부하고 있는 초보유저입니다.. > 귀하께서 올려주신 내용 잘 보...
-
최용일•2001.11.10 03:31글쎄요... 델5에서는 이상이 없는 코드인데... 델6은 한번도 써본적이 없어서... 죄송합니다... 이광...
-
- 주노
- •
- 2001.11.10 02:27
- 1 COMMENTS
- /
- 0 LIKES
-
무니스•2001.11.10 08:48델파이 시작 메뉴에서 new선택 다음 activex 선택 다음 active dll 을 선택하여 작업하시면 됩니다.... ...
-
- 왕초보7
- 2001.11.10 02:10
- 0 COMMENTS
- /
- 0 LIKES
-
- smtm
- •
- 2001.11.10 02:09
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.11.10 11:28심마니 같은 검색엔진에서 이진파일편집툴(HexEdit같은거...)을 찾아서 편집하세요... smtm wrote: > ...
-
- 왕초보
- •
- 2001.11.10 02:00
- 2 COMMENTS
- /
- 0 LIKES
-
씨나락•2001.11.10 03:22비슷한 문장인것 같아서요 전 이렇게 처리했습니다. Try if not DataBase1.Connected then ...
-
홍성락•2001.11.10 02:16왕초보 wrote: > 간단한 DB연결 함수인데요.. 화살표 부분에서 에러가 나서 컴파일이 안되요.. > 뭐가 문...
-
- bingyou
- 2001.11.10 01:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금이
- 2001.11.10 01:11
- 0 COMMENTS
- /
- 0 LIKES
Varriant Array로 데이터 전송하시져~~ 그것이 편할것같은데요.. ^^
맘이아파요 wrote:
> 델파이로 작성된 COM에 Record를 보내려구 하였습니다.
> 그냥 Record를 보낼 수 없어서
>
> WideString으로 변환해서 보내려구 합니다.
>
>
> 그런데 레코드를 그냥 string으로 바꾸면 아무 이상없는데
> 바꿔지 string을 WideString으로 바꾸면
> 이게 이상하게 자꾸 한글자씩 빼먹구 난리입니다.
>
> 이걸 어떻게 고치면 좋겠습니까? 정말 죽겠습니다.
>
> 제발 도와주세요.
>
>
>
> type
>
> TSubRec = record
> SubOn : Boolean;
> Svr : string[32];
> DB : string[32];
> View : string[32];
> end;
>
> TRecord = record
> cbSize : Integer; // Size of this structure
> Version : Integer;
> MainOn : Boolean;
> Pass : string[32];
> MainView : string[32];
> CommonDB : array[0..15] of TSubRec;
> ChkTime : Integer;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> s : string;
> ARecord : TREcord;
> WRecord : widestring;
> SRecord : string;
> begin
> ARecord.cbSize := SizeOf(TRecord);
> ARecord.Version := 50;
> ARecord.MainOn := True;
> ARecord.Pass := 'abcd';
>
> SetString(SRecord, PChar(@ARecord), SizeOf(TRecord));
>
> WRecord := WideString(SRecord); // 이 두줄에서 자꾸 글자를 빼먹습니다.
> s := string(WRecord); //
>
>
> CopyMemory(@ARecord,PChar(s),SizeOf(TRecord));
> Edit1.Text := ARecord.Pass; end;
>