Zamrony P Juhara <[EMAIL PROTECTED]> wrote:sebenarnya topik ini sudah pernah dibahas disini tapi
gak apa2x saya coba jawab lagi:
procedure BitmapToText(Bmp:TBitmap;var strBmp:string);
var aStrStream:TStringStream;
begin
aStrStream:=TStringStream.Create('');
try
bmp.SaveToStream(aStrStream);
strBmp:=astrStream.DataString;
finally
astrStream.Free;
end;
end;
procedure TextToBitmap(const
strBmp:string;Bmp:TBitmap)
var aStrStream:TStringStream;
begin
aStrStream:=TStringStream.Create(strBmp);
try
bmp.LoadFromStream(aStrStream);
finally
astrStream.Free;
end;
end;
utk instance kelas TJPEGImage caranya sama,cuma ganti
TBitmap dengan TJPEGImage.
TStringStream dideklarasikan di unit classes.pas.
Contoh:
//menampilkan data bitmap kedalam memo
BitmapToText(Image1.Picture.Bitmap,Memo1.Text);
//mengkopi data di memo ke suatu bitmap
TextToBitmap(Memo1.Text,Bitmap2);
Bitmap2.SaveToFile('copy.bmp');
ok itu saja..
--- irvan <[EMAIL PROTECTED]> wrote:
> saya pernah nyoba ngubah nilai RGB tiap pixel dari
> bitmap ke text/rtf
> tapi saya belum nyob sebaliknya.... kodenya saya
> ambil dari
> www.torry.net bagian tips nya (konfer rgb to rtf).
> tapi saya punya ide mungkin bisa di kembangkan.
> pertama ubah dulu gambar menjadi bitmap dan confert
> ke text dengan
> delimiter.
> nah kalo untuk dari text ke bitmap bisa ambil tiap
> nilai rgb yang sudah
> dibuat text tersebut
>
> sorry kalo kacau CMIIW
>
> budi nugraha wrote:
>
> >Mau nanya nih mas-mas Delphi mania,... gimana sih
> caranya mengkonversi file gambar
> (jpg,bmp,wmf,...dll) ke bentuk text ? lalu kemudian
> text itu bisa lagi dikonversi ke gambar lagi ...,
> dulu pernah ada software semacam itu, tapi saya
> sudah lupa karena sudah beberapa tahun yang lalu
> (1997 - 1999), apa ada ide ? atau ada komponen untuk
> itu mas ?
> >
> >
> >---------------------------------
> >Do you Yahoo!?
> > Check out the new Yahoo! Front Page.
> www.yahoo.com/a
> >
> >[Non-text portions of this message have been
> removed]
> >
> >
> >
> >
> >Berlangganan: [EMAIL PROTECTED]
> >Stop Berlangganan:
> [EMAIL PROTECTED]
> >Keluhan Milis(Unbouncing,spam,dll):
> [EMAIL PROTECTED]
> >Yahoo! Groups Links
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
>
__________________________________
Do you Yahoo!?
Check out the new Yahoo! Front Page.
www.yahoo.com
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Yahoo! Groups Sponsor
Get unlimited calls to
U.S./Canada
---------------------------------
Yahoo! Groups Links
To visit your group on the web, go to:
http://groups.yahoo.com/group/Delphindo/
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
Do you Yahoo!?
Check out the new Yahoo! Front Page. www.yahoo.com
[Non-text portions of this message have been removed]
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
| Yahoo! Groups Sponsor |
| Get unlimited calls to U.S./Canada |
Yahoo! Groups Links
- To visit your group on the web, go to:
http://groups.yahoo.com/group/Delphindo/
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
