Programlama yapalım ve Öğrenelim.

neoturk: ...Read a binary file and display the byte values as ascii ?...

type

TDisplayProc = procedure(const s: string) of object;

procedure ShowBinary(var Data; Count: Cardinal; DispProc: TDisplayProc);

implementation

procedure ShowBinary(var Data; Count: Cardinal; DispProc: TDisplayProc);

var

line: string[80];

i: Cardinal;

p: PChar;

nStr: string[4];

const

posStart = 1;

binStart = 7;

ascStart = 57;

HexChars: PChar = '0123456789ABCDEF';

begin

p := @Data;

line := '';

for i := 0 to Count - 1 do

begin

if (i mod 16) = 0 then

begin

if Length(line) > 0 then

DispProc(line);

FillChar(line, SizeOf(line), ' ');

line[0] := Chr(72);

nStr := Format('%4.4X', [i]);

Move(nStr[1], line[posStart], Length(nStr));

line[posStart + 4] := ':';

end;

if p[i] >= ' ' then

line[i mod 16 + ascStart] := p[i]

else

line[i mod 16 + ascStart] := '.';

line[binStart + 3 * (i mod 16)] := HexChars[(Ord(p[i]) shr 4) and $F];

line[binStart + 3 * (i mod 16) + 1] := HexChars[Ord(p[i]) and $F];

end;

DispProc(line);

end;

procedure TForm1.Display(const S: string);

begin

Memo1.Lines.Add(S);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

ms: TMemoryStream;

begin

if Opendialog1.Execute then

begin

ms := TMemoryStream.Create;

try

ms.LoadFromfile(OpenDialog1.FileName);

ShowBinary(ms.Memory^, ms.Size, Display);

finally

ms.Free

end;

Delphi - .....................................

neoturk: ...Copy the clipboard to a stream and restore it again ?...

uses

clipbrd;

procedure CopyStreamToClipboard(fmt: Cardinal; S: TStream);

var

hMem: THandle;

pMem: Pointer;

begin

Assert(Assigned(S));

S.Position := 0;

hMem := GlobalAlloc(GHND or GMEM_DDESHARE, S.Size);

if hMem <> 0 then

begin

pMem := GlobalLock(hMem);

if pMem <> nil then

begin

try

S.Read(pMem^, S.Size);

S.Position := 0;

finally

GlobalUnlock(hMem);

end;

Clipboard.Open;

try

Clipboard.SetAsHandle(fmt, hMem);

finally

Clipboard.Close;

end;

end { If }

else

begin

GlobalFree(hMem);

OutOfMemoryError;

end;

end { If }

else

OutOfMemoryError;

end; { CopyStreamToClipboard }

procedure CopyStreamFromClipboard(fmt: Cardinal; S: TStream);

var

hMem: THandle;

pMem: Pointer;

begin

Assert(Assigned(S));

hMem := Clipboard.GetAsHandle(fmt);

if hMem <> 0 then

begin

pMem := GlobalLock(hMem);

if pMem <> nil then

begin

try

S.Write(pMem^, GlobalSize(hMem));

S.Position := 0;

finally

GlobalUnlock(hMem);

end;

end { If }

else

raise Exception.Create('CopyStreamFromClipboard: could not lock global handle ' +

'obtained from clipboard!');

end; { If }

end; { CopyStreamFromClipboard }

procedure SaveClipboardFormat(fmt: Word; writer: TWriter);

var

fmtname: array[0..128] of Char;

ms: TMemoryStream;

begin

Assert(Assigned(writer));

if 0 = GetClipboardFormatName(fmt, fmtname, SizeOf(fmtname)) then

fmtname[0] := #0;

ms := TMemoryStream.Create;

try

CopyStreamFromClipboard(fmt, ms);

if ms.Size > 0 then

begin

writer.WriteInteger(fmt);

writer.WriteString(fmtname);

writer.WriteInteger(ms.Size);

writer.Write(ms.Memory^, ms.Size);

end; { If }

finally

ms.Free

end; { Finally }

end; { SaveClipboardFormat }

procedure LoadClipboardFormat(reader: TReader);

var

fmt: Integer;

fmtname: string;

Size: Integer;

ms: TMemoryStream;

begin

Assert(Assigned(reader));

fmt := reader.ReadInteger;

fmtname := reader.ReadString;

Size := reader.ReadInteger;

ms := TMemoryStream.Create;

try

ms.Size := Size;

reader.Read(ms.memory^, Size);

if Length(fmtname) > 0 then

fmt := RegisterCLipboardFormat(PChar(fmtname));

if fmt <> 0 then

CopyStreamToClipboard(fmt, ms);

finally

ms.Free;

end; { Finally }

end; { LoadClipboardFormat }

procedure SaveClipboard(S: TStream);

var

writer: TWriter;

i: Integer;

begin

Assert(Assigned(S));

writer := TWriter.Create(S, 4096);

try

Clipboard.Open;

try

writer.WriteListBegin;

for i := 0 to Clipboard.formatcount - 1 do

SaveClipboardFormat(Clipboard.Formats[i], writer);

writer.WriteListEnd;

finally

Clipboard.Close;

end; { Finally }

finally

writer.Free

end; { Finally }

end; { SaveClipboard }

procedure LoadClipboard(S: TStream);

var

reader: TReader;

begin

Assert(Assigned(S));

reader := TReader.Create(S, 4096);

try

Clipboard.Open;

try

clipboard.Clear;

reader.ReadListBegin;

while not reader.EndOfList do

LoadClipboardFormat(reader);

reader.ReadListEnd;

finally

Clipboard.Close;

end; { Finally }

finally

reader.Free

end; { Finally }

end; { LoadClipboard }

// Examples:

{ Save Clipboard }

procedure TForm1.Button1Click(Sender: TObject);

var

ms: TMemoryStream;

begin

ms := TMemoryStream.Create;

try

SaveClipboard(ms);

ms.SaveToFile('c:tempClipBrdSaved.dat');

finally

ms.Free;

end; { Finally }

end;

{ Clear Clipboard }

procedure TForm1.Button2Click(Sender: TObject);

begin

clipboard.Clear;

end;

{ Restore Clipboard }

procedure TForm1.Button3Click(Sender: TObject);

var

fs: TfileStream;

begin

fs := TFilestream.Create('c:tempClipBrdSaved.dat',

fmopenread or fmsharedenynone);

try

LoadClipboard(fs);

finally

fs.Free;

end; { Finally }

end;

Delphi - .....................................

neoturk: ...Copy the clipboard to a stream and restore it again ?...

uses

clipbrd;

procedure CopyStreamToClipboard(fmt: Cardinal; S: TStream);

var

hMem: THandle;

pMem: Pointer;

begin

Assert(Assigned(S));

S.Position := 0;

hMem := GlobalAlloc(GHND or GMEM_DDESHARE, S.Size);

if hMem <> 0 then

begin

pMem := GlobalLock(hMem);

if pMem <> nil then

begin

try

S.Read(pMem^, S.Size);

S.Position := 0;

finally

GlobalUnlock(hMem);

end;

Clipboard.Open;

try

Clipboard.SetAsHandle(fmt, hMem);

finally

Clipboard.Close;

end;

end { If }

else

begin

GlobalFree(hMem);

OutOfMemoryError;

end;

end { If }

else

OutOfMemoryError;

end; { CopyStreamToClipboard }

procedure CopyStreamFromClipboard(fmt: Cardinal; S: TStream);

var

hMem: THandle;

pMem: Pointer;

begin

Assert(Assigned(S));

hMem := Clipboard.GetAsHandle(fmt);

if hMem <> 0 then

begin

pMem := GlobalLock(hMem);

if pMem <> nil then

begin

try

S.Write(pMem^, GlobalSize(hMem));

S.Position := 0;

finally

GlobalUnlock(hMem);

end;

end { If }

else

raise Exception.Create('CopyStreamFromClipboard: could not lock global handle ' +

'obtained from clipboard!');

end; { If }

end; { CopyStreamFromClipboard }

procedure SaveClipboardFormat(fmt: Word; writer: TWriter);

var

fmtname: array[0..128] of Char;

ms: TMemoryStream;

begin

Assert(Assigned(writer));

if 0 = GetClipboardFormatName(fmt, fmtname, SizeOf(fmtname)) then

fmtname[0] := #0;

ms := TMemoryStream.Create;

try

CopyStreamFromClipboard(fmt, ms);

if ms.Size > 0 then

begin

writer.WriteInteger(fmt);

writer.WriteString(fmtname);

writer.WriteInteger(ms.Size);

writer.Write(ms.Memory^, ms.Size);

end; { If }

finally

ms.Free

end; { Finally }

end; { SaveClipboardFormat }

procedure LoadClipboardFormat(reader: TReader);

var

fmt: Integer;

fmtname: string;

Size: Integer;

ms: TMemoryStream;

begin

Assert(Assigned(reader));

fmt := reader.ReadInteger;

fmtname := reader.ReadString;

Size := reader.ReadInteger;

ms := TMemoryStream.Create;

try

ms.Size := Size;

reader.Read(ms.memory^, Size);

if Length(fmtname) > 0 then

fmt := RegisterCLipboardFormat(PChar(fmtname));

if fmt <> 0 then

CopyStreamToClipboard(fmt, ms);

finally

ms.Free;

end; { Finally }

end; { LoadClipboardFormat }

procedure SaveClipboard(S: TStream);

var

writer: TWriter;

i: Integer;

begin

Assert(Assigned(S));

writer := TWriter.Create(S, 4096);

try

Clipboard.Open;

try

writer.WriteListBegin;

for i := 0 to Clipboard.formatcount - 1 do

SaveClipboardFormat(Clipboard.Formats[i], writer);

writer.WriteListEnd;

finally

Clipboard.Close;

end; { Finally }

finally

writer.Free

end; { Finally }

end; { SaveClipboard }

procedure LoadClipboard(S: TStream);

var

reader: TReader;

begin

Assert(Assigned(S));

reader := TReader.Create(S, 4096);

try

Clipboard.Open;

try

clipboard.Clear;

reader.ReadListBegin;

while not reader.EndOfList do

LoadClipboardFormat(reader);

reader.ReadListEnd;

finally

Clipboard.Close;

end; { Finally }

finally

reader.Free

end; { Finally }

end; { LoadClipboard }

// Examples:

{ Save Clipboard }

procedure TForm1.Button1Click(Sender: TObject);

var

ms: TMemoryStream;

begin

ms := TMemoryStream.Create;

try

SaveClipboard(ms);

ms.SaveToFile('c:tempClipBrdSaved.dat');

finally

ms.Free;

end; { Finally }

end;

{ Clear Clipboard }

procedure TForm1.Button2Click(Sender: TObject);

begin

clipboard.Clear;

end;

{ Restore Clipboard }

procedure TForm1.Button3Click(Sender: TObject);

var

fs: TfileStream;

begin

fs := TFilestream.Create('c:tempClipBrdSaved.dat',

fmopenread or fmsharedenynone);

try

LoadClipboard(fs);

finally

fs.Free;

end; { Finally }

end;

Delphi - .....................................

neoturk: ...Class names of common applications that are included in windows ?...

Every window is a member of a window class. When you use

API functions suchs as FindWindow, ShowWindow,..., you need

the classname as

parameter to specify the window class name.

Below are some class names of common applications that are included in Windows.

Class Name Application

Omain ACCESS.EXE

SciCalc CALC.EXE

CalWndMain CALENDAR.EXE

Cardfile CARDFILE.EXE

Clipboard CLIPBOARD.EXE

Clock CLOCK.EXE

CtlPanelClass CONTROL.EXE

XLMain EXCEL.EXE

Session MS-DOS.EXE

Notepad NOTEPAD.EXE

pbParent PBRUSH.EXE

Pif PIFEDIT.EXE

PrintManager PRINTMAN.EXE

Progman PROGMAN.EXE (Windows Program Manager)

Recorder RECORDER.EXE

Reversi REVERSI.EXE

#32770 SETUP.EXE

Solitaire SOL.EXE

Terminal TERMINAL.EXE

WFS_Frame WINFILE.EXE

MW_WINHELP WINHELP.EXE

#32770 WINVER.EXE

OpusApp WINWORD.EXE

MSWRITE_MENU WRITE.EXE

Below are some class names of applications that are new with Windows 95:

Class Name Application

-------------------------- --------------------------

CabinetWClass My Computer Window

Internet Explorer_Frame IEXPLORE.EXE

MSPaintApp MSPAINT.EXE

SageWindowClass System Agent Com Window

Shell_Traywnd Windows 95 Task Bar

WordPadClass WORDPAD.EXE

DialerClass DIALER.EXE

SJE_CDPlayerClass CDPLAYER.EXE

MyDlgClass CHARMAP.EXE

MSDefragWClass1 DEFRAG.EXE

GFVMainWndClass FAXVIEW.EXE

FreeWClass FREECELL.EXE

Mplayer MPLAYER.EXE

AfxFrameorView HEARTS.EXE

NW_Class NETWATCH.EXE

AppClass PACKAGER.EXE

System Policy Editor POLEDIT.EXE

PWLEdit PWLEDIT.EXE

RegEdit_RegEdit REGEDIT.EXE

ScanDskWDlgClass SCANDSK.EXE

SoundRec SNDREC32.EXE

Volume Control SNDVOL32.EXE

System Monitor SYSMON.EXE

MSTaskSwWClass TASKMAN.EXE

TelnetWClass TELNET.EXE

WinIPCfgClass WINIPCFG.EXE

WordPadClass WORDPAD.EXE

Session_Window HYPERTRM.EXE

Delphi - .....................................

neoturk: ...Class names of common applications that are included in windows ?...

Every window is a member of a window class. When you use

API functions suchs as FindWindow, ShowWindow,..., you need

the classname as

parameter to specify the window class name.

Below are some class names of common applications that are included in Windows.

Class Name Application

Omain ACCESS.EXE

SciCalc CALC.EXE

CalWndMain CALENDAR.EXE

Cardfile CARDFILE.EXE

Clipboard CLIPBOARD.EXE

Clock CLOCK.EXE

CtlPanelClass CONTROL.EXE

XLMain EXCEL.EXE

Session MS-DOS.EXE

Notepad NOTEPAD.EXE

pbParent PBRUSH.EXE

Pif PIFEDIT.EXE

PrintManager PRINTMAN.EXE

Progman PROGMAN.EXE (Windows Program Manager)

Recorder RECORDER.EXE

Reversi REVERSI.EXE

#32770 SETUP.EXE

Solitaire SOL.EXE

Terminal TERMINAL.EXE

WFS_Frame WINFILE.EXE

MW_WINHELP WINHELP.EXE

#32770 WINVER.EXE

OpusApp WINWORD.EXE

MSWRITE_MENU WRITE.EXE

Below are some class names of applications that are new with Windows 95:

Class Name Application

-------------------------- --------------------------

CabinetWClass My Computer Window

Internet Explorer_Frame IEXPLORE.EXE

MSPaintApp MSPAINT.EXE

SageWindowClass System Agent Com Window

Shell_Traywnd Windows 95 Task Bar

WordPadClass WORDPAD.EXE

DialerClass DIALER.EXE

SJE_CDPlayerClass CDPLAYER.EXE

MyDlgClass CHARMAP.EXE

MSDefragWClass1 DEFRAG.EXE

GFVMainWndClass FAXVIEW.EXE

FreeWClass FREECELL.EXE

Mplayer MPLAYER.EXE

AfxFrameorView HEARTS.EXE

NW_Class NETWATCH.EXE

AppClass PACKAGER.EXE

System Policy Editor POLEDIT.EXE

PWLEdit PWLEDIT.EXE

RegEdit_RegEdit REGEDIT.EXE

ScanDskWDlgClass SCANDSK.EXE

SoundRec SNDREC32.EXE

Volume Control SNDVOL32.EXE

System Monitor SYSMON.EXE

MSTaskSwWClass TASKMAN.EXE

TelnetWClass TELNET.EXE

WinIPCfgClass WINIPCFG.EXE

WordPadClass WORDPAD.EXE

Session_Window HYPERTRM.EXE

Delphi - .....................................

neoturk: ...Read a table-textfile in a stringgrid ?...

{

Ausgehend von einer Tabelle, deren Spalten durch einem festgelegten Zeichen getrennt sind

wird ein StringGrid wie folgt automatisch aufgebaut.

If you have to import a simple textfile table (with a well defined field separator)

in your StringGrid, you can manage it like this.

}

procedure ReadTabFile(FN: TFileName; FieldSeparator: Char; SG: TStringGrid);

var

i: Integer;

S: string;

T: string;

Colonne, ligne: Integer;

Les_Strings: TStringList;

CountCols: Integer;

CountLines: Integer;

TabPos: Integer;

StartPos: Integer;

InitialCol: Integer;

begin

Les_Strings := TStringList.Create;

try

// Load the file, Datei laden

Les_Strings.LoadFromFile(FN);

// Get the number of rows, Anzahl der Zeilen ermitteln

CountLines := Les_Strings.Count + SG.FixedRows;

// Get the number of columns, Anzahl der Spalten ermitteln

T := Les_Strings[0];

for i := 0 to Length(T) - 1 do Inc(CountCols, Ord(IsDelimiter(FieldSeparator, T, i)));

Inc(CountCols, 1 + SG.FixedCols);

// Adjust Grid dimensions, Anpassung der Grid-Größe

if CountLines > SG.RowCount then SG.RowCount := CountLines;

if CountCols > SG.ColCount then SG.ColCount := CountCols;

// Initialisierung

InitialCol := SG.FixedCols - 1;

Ligne := SG.FixedRows - 1;

// Iterate through all rows of the table

// Schleife durch allen Zeilen der Tabelle

for i := 0 to Les_Strings.Count - 1 do

begin

Colonne := InitialCol;

Inc(Ligne);

StartPos := 1;

S := Les_Strings[i];

TabPos := Pos(FieldSeparator, S);

repeat

Inc(Colonne);

SG.Cells[Colonne, Ligne] := Copy(S, StartPos, TabPos - 1);

S := Copy(S, TabPos + 1, 999);

TabPos := Pos(FieldSeparator, S);

until TabPos = 0;

end;

finally

Les_Strings.Free;

end;

// Example, Beispiel:

procedure TForm1.Button1Click(Sender: TObject);

begin

Screen.Cursor := crHourGlass;

// Open tab-delimited files

ReadTabFile('C:TEST.TXT', #9, StringGrid1);

Screen.Cursor := crDefault;

end;

Delphi - .....................................

neoturk: ...Read a table-textfile in a stringgrid ?...

{

Ausgehend von einer Tabelle, deren Spalten durch einem festgelegten Zeichen getrennt sind

wird ein StringGrid wie folgt automatisch aufgebaut.

If you have to import a simple textfile table (with a well defined field separator)

in your StringGrid, you can manage it like this.

}

procedure ReadTabFile(FN: TFileName; FieldSeparator: Char; SG: TStringGrid);

var

i: Integer;

S: string;

T: string;

Colonne, ligne: Integer;

Les_Strings: TStringList;

CountCols: Integer;

CountLines: Integer;

TabPos: Integer;

StartPos: Integer;

InitialCol: Integer;

begin

Les_Strings := TStringList.Create;

try

// Load the file, Datei laden

Les_Strings.LoadFromFile(FN);

// Get the number of rows, Anzahl der Zeilen ermitteln

CountLines := Les_Strings.Count + SG.FixedRows;

// Get the number of columns, Anzahl der Spalten ermitteln

T := Les_Strings[0];

for i := 0 to Length(T) - 1 do Inc(CountCols, Ord(IsDelimiter(FieldSeparator, T, i)));

Inc(CountCols, 1 + SG.FixedCols);

// Adjust Grid dimensions, Anpassung der Grid-Größe

if CountLines > SG.RowCount then SG.RowCount := CountLines;

if CountCols > SG.ColCount then SG.ColCount := CountCols;

// Initialisierung

InitialCol := SG.FixedCols - 1;

Ligne := SG.FixedRows - 1;

// Iterate through all rows of the table

// Schleife durch allen Zeilen der Tabelle

for i := 0 to Les_Strings.Count - 1 do

begin

Colonne := InitialCol;

Inc(Ligne);

StartPos := 1;

S := Les_Strings[i];

TabPos := Pos(FieldSeparator, S);

repeat

Inc(Colonne);

SG.Cells[Colonne, Ligne] := Copy(S, StartPos, TabPos - 1);

S := Copy(S, TabPos + 1, 999);

TabPos := Pos(FieldSeparator, S);

until TabPos = 0;

end;

finally

Les_Strings.Free;

end;

// Example, Beispiel:

procedure TForm1.Button1Click(Sender: TObject);

begin

Screen.Cursor := crHourGlass;

// Open tab-delimited files

ReadTabFile('C:TEST.TXT', #9, StringGrid1);

Screen.Cursor := crDefault;

end;

Delphi - .....................................

neoturk: ...Use the shell function to copy-move a file ?...

uses

ShellApi;

procedure ShellFileOperation(fromFile: string; toFile: string; Flags: Integer);

var

shellinfo: TSHFileOpStructA;

begin

with shellinfo do

begin

wnd := Application.Handle;

wFunc := Flags;

pFrom := PChar(fromFile);

pTo := PChar(toFile);

end;

SHFileOperation(shellinfo);

end;

// Example, Beispiel:

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellFileOperation('c:afile.txt', 'd:afile2.txt', FO_COPY);

// To Move a file: FO_MOVE

end;