2012-03-02 16 views
2

プログラミングクラスの学校プロジェクトの一環として、Windows用のTurbo Pascal 7でプログラムを完成させています。本質的には、簡単な説明を受けて、自分自身から離れてプログラムを実装しコード化するように言われました。Windows用Turbo Pascal:出力をクリップボードにコピーしますか?

ユーザーがメッセージを入力して文字シフトを選択すると、各文字がそのシフト(本質的にROT13)に従って「暗号化」されるプログラムを作成する簡単な状態です。簡単です。

私はWindows 7のターミナルウィンドウのためのTurbo Pascalで実行されているに持って、それが結果として暗号化されたテキスト出力:私がやりたいのは何

writeln('Encrypted message is ', line ,' for a shift of ', shift); 
readln; 

は一歩を行くことによって、この超えて拡張されさらにユーザがその出力(var:行)をそのウィンドウのクリップボードにコピーすることを可能にする。私は2日間、インターネットをはるかに超えて検索してきましたが、まだ私を助けることができるものは何も見つけていません。私は今、パスカルがこれを行う能力を持っているのか疑問に思っています。

乾杯、 ルーク。

+0

@Embarcadero:**無料RAD StudioのDVDのは、NOW **その学校に送り、それはコマンドラインコンパイラのない不自由バージョンではないことを確認してください。 –

+0

多くの学校では、生徒をIDEに紹介し、各フィーチャとアイコンを使って生徒を演奏するのに時間がかかりすぎるため、古いバージョンが使用されています。古いバージョンはより簡単で、ドラッグアンドドロップデザイナーほどの魅力はありません。要するに、現代的なツールの欠如ではなく、その複雑さが問題です。私がFPC/Lazarus擁護のための見本市に出席したとき、教育目的に特化したカットバージョンの教師からの深刻な要求がありました。 –

+0

まだ、クラスで使用されていなくても、パスカルがまだ教えられている学校は、新しいDelphi/Lazarusユーザーを収穫するのに適しています。それはそこで促進されるべきです。学校ではTurbo Pascalしか使用していませんでしたが、仲間の学生には同じ知識を使ってDelphiでクーラーを作る方法を教えてくれました。私たちはすべて違法コピーを使っていましたが、長年にわたり、私たちは雇用者を通じて多くのライセンスを購入してきました。それでもボールドランドがより優れたコピープロテクトを持っていれば、私は間違いなく今はパスカルを何も書いていないでしょう。 –

答えて

3

パスカルにもこれが可能かどうか疑問に思い始めましたか?

古い20年以上のパスカル製品を使用しない場合は、はいです。私はそれがクリップボードにアクセスできるかどうか分からない(Windowsクリップボードは32ビットAPIなので)かどうかは分からないが、少なくともハックがなければ大きなチャンスはない。 Free PascalまたはDelphiを使用し、Windows APIに直接アクセスしてクリップボードで再生します(このためMSDNを検索します)。

PS: クリップボードは、言語としてのPascalとは関係ありません。これは単にOSが持つ概念であり、プログラムがそれを使用できるようにします。

+0

えええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええええんさん、それを私の窓7 x64ラップトップで簡単に動かすことは悪夢でした。 – ReactingToAngularVues

+2

私はそれが64ビットのウィンドウでも機能するのに驚いています。 –

+0

x64では、特別なエミュレータが必要でした。 dosbox –

2

最初に、結果のバイナリはDOSかwin3.x EXEですか?

DOS Afaikには、DOSからINT 2F拡張機能を使用してクリップボードにアクセスする方法があります。

ターボパスカル(および-For Windowsの場合)のための例のヒープが含まれている大規模なSWAGアーカイブ内の検索

にwin3x場合、

http://www.programmersheaven.com/mb/pasprog/420895/420895/use-of-windows-clipboard/

この応答は、それは、非常にあいまいに聞こえる場合これは20年前のことです:-)

2

Delphiを使用していた場合、Clipboard.SetTextBuf(PChar(somestring))を使用できます。 これは私のDos2Clipユーティリティでやっている方法です。2005年には無料で利用できるようになりました。私はソースを25行すべての下のリンクから入手できました。 ;)

Vista以上では、バッチファイルまたはコマンドラインで使用できる「クリップ」コマンドがあります。

例:echo "hello、world!" |クリップ

マイDos2Clipプログラム(ソースあり)のダウンロードリンクがあります。私はClip2Dosがそこにあるのを見る。

http://www.clipboardextender.com/general-clipboard-use/command-window-output-to-clipboard-in-vista

関連する問題