안녕하세여.. 타락임다..^^

이미지 전송수단으로 스트림을 쓰시려는 걸로 보이는군여..^^;;

제 경험상 스트림은 다루기 구찮구 피곤하더군여..ㅠㅠ

가령 포맷이 인식자,이미지갯수,이미지,이미지,이미지

이런식으로 변경된다고 가정해 보세여..ㅠㅠ

스트림은 구찮습니다..ㅠㅠ

버퍼를 사용하는 것을 추천합니다..^^ 메모리를 할당해서 쓰는거져..^^

정신 건강상 더 좋을것이라고 생각합니다..^^

즐푸하세여..^^

타락천사..

타락님께서 직접 답변을 해주시다니.. 흑흑... 감사..

버뜨. 전 아직 메모리라면.. 무뇌한이라서.. 메모리라면 먼저 무서움을 떠는 놈이랍니다. 에겅..
버퍼를 사용하는 것을 추천 해주셨는데. 제가 올린 예제를 바탕으로 간단리 버퍼 사용하는 법좀 가르쳐 주시면 아니되옵니까??

지금 열시미 델공부하고 있음다.
물론. 주로 메신저 위주로 공부도 하고 있구요..
이미지/음성 데이터를 가공을 조금 해서 보내구 받고 하려구요.
좀 어렵네요... 흐흐..
좀 도와 주세요..

안녕하세여. 타락임다..^^;;

예전 기록보며 기억을 떠올려 해보려고 했는데, 안돼네여..ㅠㅠ

기냥 스트림으로 하는게 편하겠어여..ㅠㅠ

var
  lszBuffer: array of Byte;
  lnSize : integer = 0;

procedure TFrmMain.Button1Click(Sender: TObject);
const
  BufSize = 3000000; // 적당히 잡아준다.
var
  imgJpeg : TJpegImage;
  strmBuf: TMemoryStream;
begin
  imgJpeg := TJpegImage.Create;
  strmBuf := TMemoryStream.Create;

  SetLength(lszBuffer, BufSiZe);

  imgJpeg.Assign(imgSrcOne.Picture.Bitmap);
  imgJpeg.Compress;

  imgJpeg.SaveToStream(strmBuf);
  strmBuf.Position := 0;

  // 버퍼에 쓰는 코드..
  lnSize := strmBuf.Read(lszBuffer, BufSize);
  // 이하 생략..

위와 같이 해서 버퍼에 쓰고, 다시 읽을 때는 TMemoryStream.Write() 함수로 버퍼에서 읽습니다.

그런데 해보니까, lszBuffer 에 내용이 안써지더군여..ㅠㅠ

예전엔 어떻게 했는지 모르겠슴다..ㅠㅠ

몇시간을 끙끙거렸는데, 안 써지네여..ㅠㅠ

지송함다..^^;;;

후다다닥~~~~

procedure TForm1.Button2Click(Sender: TObject);
var
    jpeg1: TJpegimage;
    stm : Tstream;
    jpegData: array of char;
    i : Integer;
    str : String;
begin
    Stm := TMemoryStream.Create;
    jpeg1 := TJpegimage.Create;
    jpeg1.Assign(image1.Picture.Bitmap);
    jpeg1.Compress;
    jpeg1.SaveToStream(stm);
    Stm.Position := 0;
    SetLength(jpegData, Stm.Size);
    Stm.ReadBuffer(jpegData[0], Stm.Size);
    str := '';
    for i := 0 to Stm.Size do
    begin
       str := str + format('%.2x',[ord(jpegData[i])]) + ' ';
       if ((i+1) mod 8)= 0  then str := str + ' ';
       if ((i+1) mod 16)= 0  then str := str + #13#10;
    end;
    rechedit1.text := str;
    FreeandNil(jpeg1);
    FreeandNil(Stm);
end;

음....

jpeg 파일 포맷은 richedit로 볼 수 없습니다.

jpeg파일 포맷은 이진데이터 파일로 되어 있어서 어지간한 사람이 봐서는

(아니 어지간 하더라도...) 볼수 없습니다.  볼수 있더라도 인간이 할 짓은 아니죠

구지 보고 싶으시다면


      Stm.SaveToFile('FileName.jpg');

스트림을 위 처럼 저장하고 나서 ultra나 뭐 적당한 에디터로 열어보시면

됩니다.

볼 수 있어요..(프로그래머에게는 기본이죠.. 이진 파일 보는거...
)
jpeg 가 데이터 이기 때문에.. 흐흐...
암튼.. 답변은 고맙습니다.
버뜨. 저는 jpeg를 프로그램 내부에서 스트링으로 처리 해야하기 때문에
그게 읽지 못할 이진 값이더라도 읽어야 겠슴다.
좀 도와 주세요...
오늘 첨. 스트림을 공부 시작했슴다...
넘 어렵네요...
후후...

굳이 보시겠다면야...

그런데 리치에디트는 rtf 포맷이기 때문에 그냥 lines.add 해서는 볼 수 없구요

edit박스에 넣으시면 왕창 깨진 스트림을 볼 수 있을 겁니다.

var
  ps : Pchar;

// 스트림 맨 마지막을 널로 막고
stm.SetSize(stm.size+1);
ps := stm.Memory;
inc(ps,stm.size);
ps^ := chr(0);
// 강제로 스트링으로 변환
edit1.text := strpas(stm.Memory);


아마 스트림 중간에 null이 있으면 거기서 끊길 겁니다.