Deutsches Lazarusforum

Hi,

habe mal ein Howto geschrieben wie man die inpout.dll unter Windows verwendet.

http://www.erfolg-reich.org/schalten-mit-parallelport/

Ich habe eine Weile gebraucht bis ich dahinter gekommen bin, hoffe das sich damit der Ein- oder Andere damit vielleicht ein wenig Zeit spart

OK Vielen Dank

Ich bin derzeit noch nicht in der Lage aus einem String einen Stream zu erzeugen

Ich spar mir den ganzen Code.

Die Antwort auf diese Frage:

Strm.WriteBuffer(strng[1],length(strng));

Danke, ich habe inzwischen festgestellt das ich einen dicken Denkfehler in der ganzen Sache habe, bei den ...

Hi,

du hast recht, war falsch gefragt, also Folgendes :-)

Ich eine Funktion die einen i.d.R. 32 KB langen String generiert:
procedure InitiateUpload(FileName : String);
var
MyFile: file;
Data: array [0..(CHUNKSIZE-1)] of Byte;
Chunk : String;
MD5Chunk, SHA1Chunk : String;
LeftFileSize ...

Hallo,

hat jemand zufällig ein Beispiel wie ich einen TStream in einen String konvertiere?

Ich habe eine Funktion, die aus einer Datei einen Stream erstellt und anschließend ausliest.
Stream := TFileStream.Create('chunk', fmOpenRead);

Wie ließe sich das realisieren damit aus einem String ein ...

OK vielen Dank, ich werde es mal probieren

Muss man bei dem konvertieren eines "String" in einen "Stream" irgendwas beachten?

Ich hab hiermit mein String convertiert, aber damit sind die Strings nur zwischen 5 und 150 byte (statt 32kb) lang, trotz alle 32KB sind?
Function StringToStream(const AString: string): TStream;
begin
Result ...

Ich hab es hinbekommen!! :-)

Hier ein Beispielcode:
rocedure TForm1.Button2Click(Sender: TObject);
var
Stream: TStream;
List: TStringList;
FileName : String;
begin
FileName := 'testfile2';
Stream := TFileStream.Create(FileName, fmOpenRead);
List:=TStringList.Create;

if HttpPostFile('http ...

Socke hat geschrieben:Zu der Funktion gibt es sogar eine offizielle Dokumentation. Dazu empfehle ich eine entsprechende Dokumentation zu HTTP -- insbesondere Dateiübertragung und Formulardaten -- zu lesen.

Leider gibt es für die entsprechende Funktion kein praktisches Beispiel, da habe ich auch schon gesehen :-/

Also so in etwa verstehe ich das *duck*, das Problem ist, ich finde leider kein einziges Beispiel wie man praktisch die Funktion aufrufen könnte, es gibt anscheinend kein einziges Beispiel.

Meine Idee wäre folgende, es scheitert aber an den letzten beiden da ich u.a. nicht genau verstehe wieso ...

Es ist sogar noch einfacher.

Soweit ich mich erinnere ist in der LCL eine Methode zur Berechnung der MD5.

-Michael

Ja, diese Methode verwende ich doch, oder? Für SHA1 verwende ich das DCCrypt Paket wie folgt:

function SHA1 ( Data : String ) : String; //korrektes SHA1 - getestet
var
Hash ...

Socke hat geschrieben:

Code: Alles auswählen

var
  data: array[0..1] of byte;
  str: String;
begin
  str := PChar(@data[0]);
end;

Wow!! So einfach war das!!

1000 Dank das hat mir sehr weitergeholfen !!!

Hi,

ich stehe hier vor einem scheinbar einfachem Problem, ich komme aber leider nicht darauf. Es werden aus einer Datei jeweils 32KB ausgelesen. Für diese sollen Stückchenweise die MD5 und SHA1-Summe berechnet werden. Die entsprechenden Funktionen dazu erwarten einen "String". Jetzt stehe ich vor ...

Hallo,

ich versuche verzweifelt mit Synapse eine Datei über HTTP/Post zu versenden, überall findet man die entsprechende Funktion. Aber nirgendwo gibt es ein entsprechendes Beispiel wie man die Funktion aufruft.

Ich muss unter Angabe eines Dateinamens eine Datei senden, ich verstehe aber leider ...

Christian hat geschrieben:Such doch hier ich hab hier mal ne tcomport komponente veröffentlicht

Hatte hier auch schon gesucht, aber danke für dein super Tipp )))))