全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:932
推到 Plurk!
推到 Facebook!

這是哪種語言呢?

答題得分者是:GrandRURU
encoref70036
一般會員


發表:29
回覆:47
積分:15
註冊:2011-05-18

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-05-24 20:57:16 IP:111.253.xxx.xxx 訂閱
這是哪種語言呢? 如果要改成C builder 6要怎麼改呢?
procedure TForm1.Button
1Click(Sender: TObject);
var
gif: TGifImage;
fs: TFileStream;
begin
gif := TGifImage.Create;
gif.Assign(Image1.Picture);
fs := TFileStream.Create('c:\aaa.gif',fmCreate OR fmOpenWrite);
gif.SaveToStream(fs);
fs.Free;
gif.Free;
end;
GrandRURU
站務副站長


發表:235
回覆:1655
積分:1753
註冊:2005-06-21

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-05-24 22:59:02 IP:111.249.xxx.xxx 未訂閱
這個就是Delphi's Pascal語言
改法大致上是:
TGifImage * gif = new TGifImage;
gif->Assign(Image1->Picture);
TFileStream * fs = new TFileStream("c:\\aaa.gif", fmCreate|fmOpenWrite);
gif->SaveToStream(fs);
delete fs;
delete gif;

沒有實際編譯過,但應該是差不了多少

===================引 用 encoref70036 文 章===================
這是哪種語言呢? 如果要改成C builder 6要怎麼改呢?
procedure TForm1.Button
1Click(Sender: TObject);
var
gif: TGifImage;
fs: TFileStream;
begin
gif := TGifImage.Create;
gif.Assign(Image1.Picture);
fs := TFileStream.Create('c:\aaa.gif',fmCreate OR fmOpenWrite);
gif.SaveToStream(fs);
fs.Free;
gif.Free;
end;
編輯記錄
GrandRURU 重新編輯於 2011-05-24 09:00:02, 註解 無‧
系統時間:2017-12-11 9:49:06
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!