Copy and Paste with Windows Clipboard?

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|685\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Copy and Paste with Windows Clipboard?
Sun, 02 Dec 2007, 12:10
Forklift_Fred	First of all, is it possible and secondly, how? It's a very simple problem but I'm sure the solution will be a bit convoluted and no doubt require a dll or something If you can help, you may need to be very patient and detailed if it's not a straight forward blitz command. Essentially, I want to be able to copy image links provided by a free image host and paste them into my application to convert them to a format suitable for the forum I want to post them. I can do everything that I need to do by saving them to a txt file and writing the converted output to a txt file but it would be nice if I could do it by just running my application, paste, click, copy. Especially if anyone else wants to use it, I'd rather they could do it without any hassle. I'm using Blitz3D but I also have the trial version of BlitzPlus (I've not had it installed since I replaced my old hardrive and can't remember if it will create an exe or not, I'm guessing not though) I get the feeling this has been discussed in the past but can't see anything here. Probably back on BlitzCoder Thank you for your time. -=-=- Come rain or shine...
Sun, 02 Dec 2007, 12:28
Dabz	www.blitzbasic.com/codearcs/codearcs.php?code=1767 Hope that helps! Dabz -=-=- Intel Core i5 6400 2.7GHz, NVIDIA GeForce GTX 1070 (8GB), 8Gig DDR4 RAM, 256GB SSD, 1TB HDD, Windows 10 64bit
Sun, 02 Dec 2007, 12:37
Forklift_Fred	Oooh, I'll have to scratch my head to understand how to apply that to text but it's certainly a look in the right direction. I tried searching at bb.com but I've not been there for so long that can't remember my password Cheers! -=-=- Come rain or shine...
Sun, 02 Dec 2007, 13:22
Forklift_Fred	Er... nope. It's beyond me. I'm only after copy and paste of text and Banks are new to me. Thanks anyway -=-=- Come rain or shine...
Sun, 02 Dec 2007, 14:11
Forklift_Fred	OK so I did a bit of research... Elsewhere on BB.com was someone asking about Clipboard.decls but got no reply. I googled it and got the following from BlitzForum.de (after deciphering the translated page to understand the links I needed and then using the code from the un-translated page ) ; ID: 699 ; Author: Syntax Error ; Date: 2003-05-21 14:30:46 ; Title: Clipboard - Text Copy & Paste ; Description: Two functions to read & write to through the clipboard ; Clipboard Text Read / Write ; =========================== ; Syntax Error & Ed from Mars ; userlibs ; ******************************************* ; .lib "user32.dll" ; OpenClipboard%(hwnd%):"OpenClipboard" ; CloseClipboard%():"CloseClipboard" ; ExamineClipboard%(format%):"IsClipboardFormatAvailable" ; EmptyClipboard%():"EmptyClipboard" ; GetClipboardData$(format%):"GetClipboardData" ; SetClipboardData%(format%,txt$):"SetClipboardData" ; ******************************************* Print "Clipboard Test." Print "~~~~~~~~~~~~~~~" Print "Enter a message for the clipboard." Print "Alternatively, leave BLANK to read clipboard." a$=Input$(">") If a$="" a$=ReadClipboardText$() Print a$ Else WriteClipboardText a$ Print "Text sent to clipboard. Open NotePad and paste!" EndIf Print Chr$(13)+"---------------------------------" a$=Input$("Press RETURN to end ...") End ;----------------------------------- Function WriteClipboardText(txt$) Local cb_TEXT=1 If txt$="" Then Return OpenClipboard 0 EmptyClipboard SetClipboardData cb_TEXT,txt$ CloseClipboard End Function ;----------------------------------- Function ReadClipboardText$() Local cb_TEXT=1 Local txt$="" OpenClipboard 0 If ExamineClipboard(cb_TEXT) txt$=GetClipboardData$(cb_TEXT) EndIf CloseClipboard Return txt$ End Function --v Obviously the commented bit at the top needs to be in a .decl but once you've got that it works a treat Thanks for the inspirational spark that got me on the right tracks Dabz. Job done, case closed, tomorrow I conquer the world! OK, maybe not the last bit! -=-=- Come rain or shine...
Mon, 03 Dec 2007, 00:49
Dabz	No ploblem Fred... Glad you sussed it! Dabz