Q&A
안녕하십니까?
StringGrid로 입력 받은 자료를 서버로 전송하여 DB에 저장하려 합니다.
StringGrid에 자료를 입력 하는 일(입력,삭제,추가)은 어느정도 마무리 되었습니다.
StringGrid의 각 Cell에 있는 데이터를(모두 String) Send_Buf라는 버퍼에 집어 넣어서 일괄 전송하려고 합니다.(데이터 간의 구분은 구분자를 이용하려 합니다.)
StringGrid의 입력된 전체 Cell의 크기는 산출 했는데, 배열에 어떻게 넣어야 하는지 알려 주세요.
ClientSocket의 SendBuf를 사용하려고 하는데, 고수님들의 의견은 어떠신지요?
StringGrid.Cells의 전체 구조는 [1..3, 1..10] 입니다. 최대 전송크기도 위와 같습니다.
어제 오늘 이것 찾느라 여러 곳을 다녀 봤지만, 못 찾겠습니다. 도와 주시기 바랍니다. -.-;
unit Form1;
.....
var
Form1: TForm1;
NowCol, NowRow, IncRow : Integer;
NIp : String;
type
Send_Buf = array[1..64] of Char;
implementation
{$R *.DFM}
........
procedure TForm1.Delete_BtnClick(Sender: TObject);
var
NowRow2nd, FirstCnt, SecondCnt, PriCnt, NextCnt, LastCnt : Integer;
begin
LastCnt := 1;
NowRow2nd := StringGrid1.Row;
//현재 라인을 삭제한다.
StringGrid1.Rows[NowRow2nd].Clear;
// 현재 몇라인까지 입력이 되었는가를 집계 LastCnt
for FirstCnt := 1 to StringGrid1.RowCount - 1 do
begin
if StringGrid1.Cells[1, FirstCnt] <> '' then
LastCnt := LastCnt + 1;
end;
//선택 Row를 삭제하고 한 Row씩 끌어올린다.
for FirstCnt := NowRow2nd to LastCnt do
begin
NextCnt := FirstCnt + 1;
for SecondCnt := 0 to 3 do
begin
StringGrid1.Cells[SecondCnt,FirstCnt] := StringGrid1.Cells[SecondCnt,NextCnt];
PriCnt := NextCnt - 1;
if STringGrid1.Cells[1, NextCnt] = '' then
StringGrid1.Cells[0,FirstCnt] := ''
else StringGrid1.Cells[0, FirstCnt] := IntToStr(PriCnt);
end;
end;
IncRow := IncRow - 1 ;
Form1.Search_Edt.SetFocus;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientSocket1.Address := NIp;
ClientSocket1.Port := 23;
ClientSocket1.Active := True;
end;
procedure TForm1.Send_BtnClick(Sender: TObject);
var
S1_Cnt, S2_Cnt, S3_Cnt, S4_Cnt, Size_Cnt, Size_Cnt2, Size_Arr : Integer;
S_B : Send_Buf;
// 입력된 전체 Cell 의 크기를 측정한다. 값은 Size_Cnt2에 저장한다.
begin
Size_Cnt := 0;
Size_Cnt2 := 0;
for S1_Cnt := 1 to IncRow do
begin
for S2_Cnt := 1 to 3 do
begin
Size_Cnt := Length(StringGrid1.Cells[S2_Cnt, S1_Cnt]);
Size_Cnt2 := Size_Cnt2 + Size_Cnt + 1; // +1은 구분자의 크기.
end;
end;
for S3_Cnt := 1 to IncRow do
begin
for S4_Cnt := 1 to 3 do
begin
for Size_Arr := 1 to Size_Cnt2 do
begin
S_B[Size_Arr] := StringGrid1.Cells[S4_Cnt, S3_Cnt] + #13;
// 배열에 StringGrid1.Cells 의 데이터를 집어 넣으려고 하는데 방법이 틀린 듯 합니다. Cells의 데이터는 모두 String 입니다.
end;
end;
end;
end;
end.
- StringGrid의 데이터 배열로 전송하기...
안녕하십니까?
StringGrid로 입력 받은 자료를 서버로 전송하여 DB에 저장하려 합니다.
StringGrid에 자료를 입력 하는 일(입력,삭제,추가)은 어느정도 마무리 되었습니다.
StringGrid의 각 Cell에 있는 데이터를(모두 String) Send_Buf라는 버퍼에 집어 넣어서 일괄 전송하려고 합니다.(데이터 간의 구분은 구분자를 이용하려 합니다.)
StringGrid의 입력된 전체 Cell의 크기는 산출 했는데, 배열에 어떻게 넣어야 하는지 알려 주세요.
ClientSocket의 SendBuf를 사용하려고 하는데, 고수님들의 의견은 어떠신지요?
StringGrid.Cells의 전체 구조는 [1..3, 1..10] 입니다. 최대 전송크기도 위와 같습니다.
어제 오늘 이것 찾느라 여러 곳을 다녀 봤지만, 못 찾겠습니다. 도와 주시기 바랍니다. -.-;
unit Form1;
.....
var
Form1: TForm1;
NowCol, NowRow, IncRow : Integer;
NIp : String;
type
Send_Buf = array[1..64] of Char;
implementation
{$R *.DFM}
........
procedure TForm1.Delete_BtnClick(Sender: TObject);
var
NowRow2nd, FirstCnt, SecondCnt, PriCnt, NextCnt, LastCnt : Integer;
begin
LastCnt := 1;
NowRow2nd := StringGrid1.Row;
//현재 라인을 삭제한다.
StringGrid1.Rows[NowRow2nd].Clear;
// 현재 몇라인까지 입력이 되었는가를 집계 LastCnt
for FirstCnt := 1 to StringGrid1.RowCount - 1 do
begin
if StringGrid1.Cells[1, FirstCnt] <> '' then
LastCnt := LastCnt + 1;
end;
//선택 Row를 삭제하고 한 Row씩 끌어올린다.
for FirstCnt := NowRow2nd to LastCnt do
begin
NextCnt := FirstCnt + 1;
for SecondCnt := 0 to 3 do
begin
StringGrid1.Cells[SecondCnt,FirstCnt] := StringGrid1.Cells[SecondCnt,NextCnt];
PriCnt := NextCnt - 1;
if STringGrid1.Cells[1, NextCnt] = '' then
StringGrid1.Cells[0,FirstCnt] := ''
else StringGrid1.Cells[0, FirstCnt] := IntToStr(PriCnt);
end;
end;
IncRow := IncRow - 1 ;
Form1.Search_Edt.SetFocus;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientSocket1.Address := NIp;
ClientSocket1.Port := 23;
ClientSocket1.Active := True;
end;
procedure TForm1.Send_BtnClick(Sender: TObject);
var
S1_Cnt, S2_Cnt, S3_Cnt, S4_Cnt, Size_Cnt, Size_Cnt2, Size_Arr : Integer;
S_B : Send_Buf;
// 입력된 전체 Cell 의 크기를 측정한다. 값은 Size_Cnt2에 저장한다.
begin
Size_Cnt := 0;
Size_Cnt2 := 0;
for S1_Cnt := 1 to IncRow do
begin
for S2_Cnt := 1 to 3 do
begin
Size_Cnt := Length(StringGrid1.Cells[S2_Cnt, S1_Cnt]);
Size_Cnt2 := Size_Cnt2 + Size_Cnt + 1; // +1은 구분자의 크기.
end;
end;
for S3_Cnt := 1 to IncRow do
begin
for S4_Cnt := 1 to 3 do
begin
for Size_Arr := 1 to Size_Cnt2 do
begin
S_B[Size_Arr] := StringGrid1.Cells[S4_Cnt, S3_Cnt] + #13;
// 배열에 StringGrid1.Cells 의 데이터를 집어 넣으려고 하는데 방법이 틀린 듯 합니다. Cells의 데이터는 모두 String 입니다.
end;
end;
end;
end;
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이광주
- 2000.06.21 18:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 제로니스
- 2000.06.21 07:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 해릿
- •
- 2000.06.21 07:04
- 1 COMMENTS
- /
- 0 LIKES
-
방기남•2000.06.21 07:24안녕하세요. 좀 다르게 생각을 하면 어떻겠습니까? 테잎이든 책이든 대여이후 반납일이 정해져 있을 겁...
-
- 원영준
- •
- 2000.06.21 06:16
- 3 COMMENTS
- /
- 0 LIKES
-
노태협•2000.06.21 19:04database컴포넌트의 params에서 username과 password를 입력하시면됩니다... loginprompt는 false로 하...
-
방기남•2000.06.21 07:28안녕하세요. 저는 델 + 오라클을 사용하지만, 비슷한 것 같아서 몇 자 적습니다. 일반적으로 디자인 타...
-
원영준•2000.06.21 18:17방기남 wrote: > > 안녕하세요. 저는 델 + 오라클을 사용하지만, 비슷한 것 같아서 몇 자 적습니다. > ...
-
- 김인수
- •
- 2000.06.21 06:11
- 2 COMMENTS
- /
- 0 LIKES
-
김범석•2000.06.22 21:02우선 excel자료를 save as..에서 dbase format으로 저장하시고 델파이의 data pump를 이용하여 oracl...
-
김인수•2000.06.22 21:23안녕하세요 정말루 고맙습니다 그런 좋은 방법이 있는줄 몰랐습니다 감사합니다 >김범석 wrote: > ...
-
- 강진호
- •
- 2000.06.21 09:08
- 1 COMMENTS
- /
- 0 LIKES
안녕하십니까? StringGrid로 입력 받은 자료를 서버로 전송하여 DB에 저장하려 합니다. StringGrid에 자료를 입력 하는 일(입력,삭제,추가)은 어느정도 마무리 되었습니다. StringGrid의 각 Cell에 있는 데이터를(모두 String) Send_Buf라...-
최용일•2000.06.21 19:51안녕하세요. 최용일입니다. 2차원인 스트링그리드의 내용을 1차원 바이트 배열로 바꾸는 예제를 간단히 ...
-
- 워니99
- •
- 2000.06.21 05:16
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.21 06:26안녕하세요. 최용일입니다. 아마도 열때 'Open'으로 실행시키셨나보네요. 그럼 디폴트로 메모장으로 읽...
-
- 김선호
- 2000.06.21 05:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보.......t(t--)
- •
- 2000.06.21 04:37
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•2000.06.21 04:53초보.......t(t--) wrote: > 흠냐리.. 델파이루 간단한 프로그램을 만들었는디엽음 아이콘이 이쁜게 없네...
-
- 까마귀
- •
- 2000.06.21 03:54
- 2 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.06.21 04:19까마귀 wrote: > 안녕하세요. > 까마귀입니다. > > 제목대로인데요. > DBGrid의 속성중에 Options라...
-
방기남•2000.06.21 07:30또는 이렇게 해보세요. DBGrid1.Option := DBGrid1.Option -[dgRowLines]; assembly@hitel.net
-
- 이진배
- •
- 2000.06.21 03:44
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•2000.06.21 05:19한델의 도구 메뉴에 아스키코드를 보세요. 이진배 wrote: > keypress이벤트시 key 값좀 알려주세요 ...
-
- 김동식
- 2000.06.21 03:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 박정훈
- •
- 2000.06.21 03:20
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.06.21 04:34새로운 프로젝트를 실행하면 기본적으로 폼이 한개가 추가되어 버리죠... 이때 메뉴에서 File>New..를 선...
-
- 김범석
- •
- 2000.06.21 02:53
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.06.21 04:24최대커서 열기수를 초과했다는 에러메시지를 말씀하시는듯 싶군요... 만약에 그렇다면 서브루틴에서 동...
-
- 과객
- •
- 2000.06.21 02:38
- 1 COMMENTS
- /
- 0 LIKES
-
성호종•2000.07.01 07:12과객 wrote: 제가 미루어 짐작하곤데 아마도 Windows에 국가별 설정에 날짜설정이 yy-mm-dd로 되어 있을거...
-
- 김지훈
- •
- 2000.06.21 02:15
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2000.06.21 02:20김지훈 wrote: > 금번 제작한 프로그램을 오피스 제품군에 연계하여 사용하고 싶은데 어떤 방법이 > 있을...
-
- 공주마마
- •
- 2000.06.21 02:10
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.06.21 04:37구체적인 에러메시지와 에러가 발생하는 부분의 소스코드를 함께 올려서 질문하셔야 할것같습니다. 그리...
-
- 김범석
- •
- 2000.06.21 01:55
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.06.21 17:30김범석 wrote: > 고수님들의 조언 많이 기다리겠습니다 > > 스플레쉬 화면에서 한 5초정도 되는 MPEG ...
-
- 류응철
- •
- 2000.06.21 01:42
- 5 COMMENTS
- /
- 0 LIKES
-
조복기•2000.06.21 04:00류응철 wrote: > 제목 그대로입니다... > > 인스톨해서 한달동안만 쓸 수있게끔 하고 싶은데요... > ...
-
류응철•2000.06.21 19:59FIniFile:TRegIniFile; implementation > > .. > .. > > procedure TISPASSF.FormShow(Sende...
-
조복기•2000.06.21 20:22맨위 interface uses문에 아래두개를 추가시키세요 Registry, Inifiles TRegIniFile하고 TRe...
-
류응철•2000.06.21 20:46컨트롤 + 마우스클릭해서.. 저두 해보려 했는데... 관련소스가 안튀어나와서... 그래서 ㅠ.ㅠ(앙.. 초보당...
-
류응철•2000.06.21 18:47우앙 소스까지 주셨네요... 정말 감사합니다... 밑에 있는 소스 참조 하여... 열띠미 해보겠습니다.. 앙....
-
- 혀노
- •
- 2000.06.21 01:40
- 2 COMMENTS
- /
- 0 LIKES
-
임형호•2000.06.21 02:37혀노 wrote: > 오라클에서 필드 Type은 Date형이고 > 테이블에서 필터링을 시키는데 > 테이블.Filter = ...
-
과객•2000.06.21 02:34혀노 wrote: > 오라클에서 필드 Type은 Date형이고 > 테이블에서 필터링을 시키는데 > 테이블.Filter = ...
2차원인 스트링그리드의 내용을 1차원 바이트 배열로 바꾸는 예제를 간단히 만들어 보았
습니다. 객체의 속성을 var파라매터로 넣어줄수 없기때문에 변수가 좀 많습니다.
이렇게 1차원 배열로 만들어주었으니까 일정한 크기로 끊어서 보내는 것을 하시겠죠?
배열의 전체크기는 High함수로 알 수 있습니다. 사용이 끝난후 SetLength(Flat, 0)을
호출하여 할당받은 메모리를 해제해주세요.
type
TFlatArray = array of Char; // 1차원 바이트 배열 타입
// Char로 하나 Byte로 하나 차이는 없습니다. 똑같이 1 byte이니까요...
var
Flat: TFlatArray; // 1차원 바이트 배열 변수
procedure SaveToFlatArray(Grid: TStringGrid; var Flat: TFlatArray);
// 스트링그리드의 내용을 1차원 바이트 배열에 저장.
var
I, SaveSize, SavePos, FlatSize: Integer;
SourceStr: string;
SaveStr: array of Char;
begin
FlatSize := 0;
for I := 0 to Grid.ColCount - 1 do
begin
SourceStr := Grid.Cols[I].Text;
SaveSize := Length(SourceStr);
SetLength(SaveStr, SaveSize);
Move(SourceStr[1], SaveStr[1], SaveSize);
SavePos := FlatSize;
FlatSize := FlatSize + SaveSize + SizeOf(SaveSize);
SetLength(Flat, FlatSize);
Move(SaveSize, Flat[SavePos], SizeOf(SaveSize));
Move(SaveStr[1], Flat[SavePos + SizeOf(SaveSize)], SaveSize);
end;
end;
procedure LoadFromFlatArray(Grid: TStringGrid; var Flat: TFlatArray);
// 1차원 바이트 배열을 스트링그리드에 복원.
var
I, LoadSize, LoadPos: Integer;
LoadStr: string;
begin
LoadPos := 0;
for I := 0 to Grid.ColCount - 1 do
begin
Move(Flat[LoadPos], LoadSize, SizeOf(LoadSize));
SetLength(LoadStr, LoadSize);
Move(Flat[LoadPos + SizeOf(LoadSize)], LoadStr[1], LoadSize);
Grid.Cols[I].Text := LoadStr;
LoadPos := LoadPos + SizeOf(LoadSize) + LoadSize;
end;
end;
^^ 항상 즐코하세요.
강진호 wrote:
>
> 안녕하십니까?
>
> StringGrid로 입력 받은 자료를 서버로 전송하여 DB에 저장하려 합니다.
>
> StringGrid에 자료를 입력 하는 일(입력,삭제,추가)은 어느정도 마무리 되었습니다.
>
> StringGrid의 각 Cell에 있는 데이터를(모두 String) Send_Buf라는 버퍼에 집어 넣어서 일괄 전송하려고 합니다.(데이터 간의 구분은 구분자를 이용하려 합니다.)
>
> StringGrid의 입력된 전체 Cell의 크기는 산출 했는데, 배열에 어떻게 넣어야 하는지 알려 주세요.
>
> ClientSocket의 SendBuf를 사용하려고 하는데, 고수님들의 의견은 어떠신지요?
>
> StringGrid.Cells의 전체 구조는 [1..3, 1..10] 입니다. 최대 전송크기도 위와 같습니다.
>
> 어제 오늘 이것 찾느라 여러 곳을 다녀 봤지만, 못 찾겠습니다. 도와 주시기 바랍니다. -.-;
>
>
>
>
> unit Form1;
>
> .....
>
> var
> Form1: TForm1;
> NowCol, NowRow, IncRow : Integer;
> NIp : String;
>
> type
> Send_Buf = array[1..64] of Char;
>
> implementation
>
> {$R *.DFM}
>
> ........
>
> procedure TForm1.Delete_BtnClick(Sender: TObject);
> var
> NowRow2nd, FirstCnt, SecondCnt, PriCnt, NextCnt, LastCnt : Integer;
> begin
> LastCnt := 1;
> NowRow2nd := StringGrid1.Row;
>
> //현재 라인을 삭제한다.
> StringGrid1.Rows[NowRow2nd].Clear;
>
> // 현재 몇라인까지 입력이 되었는가를 집계 LastCnt
> for FirstCnt := 1 to StringGrid1.RowCount - 1 do
> begin
> if StringGrid1.Cells[1, FirstCnt] <> '' then
> LastCnt := LastCnt + 1;
> end;
>
> //선택 Row를 삭제하고 한 Row씩 끌어올린다.
> for FirstCnt := NowRow2nd to LastCnt do
> begin
> NextCnt := FirstCnt + 1;
> for SecondCnt := 0 to 3 do
> begin
> StringGrid1.Cells[SecondCnt,FirstCnt] := StringGrid1.Cells[SecondCnt,NextCnt];
> PriCnt := NextCnt - 1;
> if STringGrid1.Cells[1, NextCnt] = '' then
> StringGrid1.Cells[0,FirstCnt] := ''
> else StringGrid1.Cells[0, FirstCnt] := IntToStr(PriCnt);
> end;
> end;
> IncRow := IncRow - 1 ;
> Form1.Search_Edt.SetFocus;
> end;
>
>
>
> procedure TForm1.ClientSocket1Connect(Sender: TObject;
> Socket: TCustomWinSocket);
> begin
> ClientSocket1.Address := NIp;
> ClientSocket1.Port := 23;
> ClientSocket1.Active := True;
> end;
>
> procedure TForm1.Send_BtnClick(Sender: TObject);
> var
> S1_Cnt, S2_Cnt, S3_Cnt, S4_Cnt, Size_Cnt, Size_Cnt2, Size_Arr : Integer;
> S_B : Send_Buf;
>
> // 입력된 전체 Cell 의 크기를 측정한다. 값은 Size_Cnt2에 저장한다.
> begin
> Size_Cnt := 0;
> Size_Cnt2 := 0;
>
> for S1_Cnt := 1 to IncRow do
> begin
> for S2_Cnt := 1 to 3 do
> begin
> Size_Cnt := Length(StringGrid1.Cells[S2_Cnt, S1_Cnt]);
> Size_Cnt2 := Size_Cnt2 + Size_Cnt + 1; // +1은 구분자의 크기.
> end;
> end;
>
> for S3_Cnt := 1 to IncRow do
> begin
> for S4_Cnt := 1 to 3 do
> begin
> for Size_Arr := 1 to Size_Cnt2 do
> begin
> S_B[Size_Arr] := StringGrid1.Cells[S4_Cnt, S3_Cnt] + #13;
>
> // 배열에 StringGrid1.Cells 의 데이터를 집어 넣으려고 하는데 방법이 틀린 듯 합니다. Cells의 데이터는 모두 String 입니다.
>
> end;
> end;
> end;
>
> end;
>
> end.