본문 바로가기

분류 전체보기590

한글 자를때 깨지지 않게 하기 한글이 2바이트 문자이기 때문에 copy() 메소드로 짤라낼경우 깨질수 있다 이때 WideString 변수를 하나 선언하고 이를 이용하면 된다. WideString 을 사용하면, 문자를 Byte 단위가 아니라, 문자 1자 단위로 읽어오게 된다. 2008. 8. 13.
rxrichedit 컨트롤 String 으로 저장 procedure TForm1.Button1Click(Sender: TObject); var Stream : TMemoryStream; Str : String; begin Stream := TMemoryStream.Create; RxRichEdit1.Lines.SaveToStream(Stream); Stream.Position := 0; Memo1.Lines.LoadFromStream(Stream); Stream.Free; Str := Memo1.Text; //RxRichEdit1.Lines.SaveToStream .SaveToFile('d:\aaa.rtf'); showmessage(str); end; 2008. 8. 13.
bmp, jpeg 상호 변환 procedure TMainForm.BMP2JPG(JPGFile: String; BMPFile: String); var Bmp: TBitmap; Jpg : TjpegImage; begin Bmp := TBitmap.Create; Jpg := TjpegImage.Create; Bmp.LoadFromFile(BMPFile); Jpg.Assign(Bmp); Jpg.SaveToFile(JPGFile); Bmp.Free; Jpg.Free; end; procedure TMainForm.JPG2BMP(BMPFile: String; JPGFile: String); var Bmp: TBitmap; Jpg : TjpegImage; begin Bmp := TBitmap.Create; Jpg := TjpegImage.Crea.. 2008. 8. 13.
rxrichedit 이미지나 문자 넣기. function ConvertBitmapToRTF(const Bitmap: TBitmap): string; var bi, bb: string; bis, bbs: Cardinal; achar: string[2]; Buffer: string; I: Integer; type PWord = ^Word; begin GetDIBSizes(Bitmap.Handle, bis, bbs); SetLength(bi, bis); SetLength(bb, bbs); GetDIB(Bitmap.Handle, Bitmap.Palette, PChar(bi)^, PChar(bb)^); SetLength(Buffer, (Length(bb) + Length(bi)) * 2); i := 1; for bis := 1 to Length(bi) .. 2008. 8. 13.

티스토리툴바